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a PROGRAM TITLE 
Multi Media Diagnostic Generator. (MDG) 


06-177 FOL 16 Bit Processors 
06-177 FO2 32 Bit Processors 


2. PURPOSE OF THE PROGRAM 


The MDG provides the facilities necessary to build and maintain 
Perkin-Elmer diagnostics on Multi Media. The need for a paper tape 
reader is eliminated. Programs can be loaded from the magnetic 
media using the Multi Media Diagnostic Loader (06-176 FO1 or FO2). 


These programs support the following devices: 


800 BPI Mag Tape 
1600 BPI Mag Tape 
INTERTAPE (cassette) 
13.5 MB Disc | 
10 MB Disc 
67 MB Disc 
256 MB Disc 
NOTE: The 13.5 MB disc is only supported on 32-bit systems. 


3. MINIMUM HARDWARE REQUIRED 


Processor - Any 16 bit with the Basic 7/16 instruction set. 


- Any 32 Bit 
Memory - 16 bit processor - 32KB 
- 32 bit processor - 40KB 
Console - TTY or CRT or Carousel 30 or Carousel 300, on 
CLI or PASLA or STC. 
Loading 
Device - HSPTR/P or 
- TTY 
- Used to load some diagnostics for the CREATE mode. 
Output 
Device - Mag Tape w/wo SELCH 
- Cassette . 
- Disc and SELCH 
- Used as the magnetic output device for the CREATE 
and COPY functions. 
Input 
Device - Mag Tape w/wo SELCH 


- Cassette 
~-~ Disc and SELCH 
_- Used as the input device for the COPY function. 
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4. REQUIREMENTS OF THE MDG SYSTEM 


f{ Manually enter the X'50' Sequence shown as followed, into memory: 


X'30' 0 
Ae 0 
X'34' 0 
Xx'36' X'50' 
X'50! X'D500' 
x52) X'OOCF' 
X'54' X'4300' 


X'56' x'0080' 


5. LOADING PROCEDURES 
5.1 Tape Format “ 


The MDG is supported by two separate Relocatable programs; one for 
32 bit processors, and one for 16 bit processors. 


i 16 Bit 06-177 FOl1 M17 
32 Bit 06-177 FO2 M17 


[ The Location start + X'10' contains the console device code. 
Refer to Appendix C for details and devices supported. Ma, 


: Execute the MDG at its start address. Observe the following title 
is printed on the console device. 


MDG 
* 


6. OPERATOR COMMAND/OPTION INFORMATION 
6.1 Command/Option Input Structure : 


An asterisk (*) is output to the console device to indicate that 

the program is awaiting operator input. All options must be typed 3 
in from the Console, followed by a space and the desired arguments 
separated by commas. A carriage return (CR) is issued to terminate 
every command/option input. An invalid command/option or value 

will cause a (?) followed by a carriage return (CR), line feed 

(LF), and an asterisk (*) to occur. If, during entry of the op- 

tion, an error is made, it can be handled in one of two ways. 


The hash mark (#) can be input to delete the entire line. This 
will cause a carriage return (CR), and line feed (LF), asterisk 
(*) to be output. The left arrow (<—) or BS can be input to 
delete the previous caracters, or a string of characters can be 
deleted by inputting a (€«—) left arrow or BS for each character 
to be deleted. ‘ 


2 BO6-177M95A15 RO2 6/79 


ee’ 


6.2 Operator Commands/Options 


The list of operator Commands/Options. 


OUTDEV RW — rewind 
INDEV FF - forward file 
LIMITS BF - backward file 
SEQNAM EOV - write EOV 
CREATE INIT 
COPY 
6.2.1 OUTDEV (Select Output Device). This command spe- 


cifies the device a 
This option is requ 


Format: 


ddresses associated with the output device. 
ired before most commands can be honored. 


OUTDEV n,aa,ss,cc(CR) 


where: n-l - 9 track mag tape 


800 or 1600 BPI 
2 - INTERTAPE 
3 - 13.5 MB Disc 
4 - 10 MB Disc 
5 - 67 MB Disc 


6 - 256 MB Disc 


NOTE 


Devices 3, 4, 5, and 6 must have SELCH specified. 


Examples: 


BO06-177M95A15 RO4 


aa - Device address 


ss - SELCH address if device (aa) 
is on a SELCH If no selch 
enter carriage return (CR). 


ce - Controller address if n is greater 


than 2. If no controller enter 
Carriage return (CR). 


Assign a Mag Tape at address X'95' no SELCH 
OUTDEV 1,95(CR) 


Assign the same Mag Tape but on SELCH X'FO'. 
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OUTDEV 1,95,FO(CR) 


Assign INTERTAPE device X'45'. 


OUTDEV 2,45 (CR) 


Assign a 13.5 MB disc-device X'FC' controller 
X'FB', and SELCH X'FO'. 


OUTDEV 3,FC,F0,FB(CR) 


Assign a fixed platter of 10MB disc-device 
address X'C9' - controller address X'B8' - 
as SELCH address X'FO'. 


OUTDEV 4,C9,F0,RB8 (CR) Z 
6.2.2 INDEV (Select Input device). This command spe- 
cifies the device addresses associated with the input device. 
The option is used for the COPY function only. 
Format: INDEV n,aa,ss,cc (CR) 
where: n,aa,Ss,cc are defined as in OUTDEV. 
Examples: Assign a Mag Tape at address X'85' no SELCH 
INDEV 1,85 (CR) 
| Same Mag Tape on SELCH X'FO' ae, 
INDEV 1,85,F0(CR) 
Assign INTERTAPE at address X'55! 
INDEV 2,55 (CR) 
Assign the removable platter of a 10 MB 
disc-device address X'C8' - controller X'B8' 
and SELCH X'F2'. 
INDEV 4,C8,F2,B8 (CR) : 
6.2.3 INIT (Initialize the Media). The INIT command 
will prepare a virgin media for use. On a mag tape, it will ‘ 
write the boot loader. On a disc it will initialize the direc- 
| tory and verify the integrity of cylinders eight and nine. This 
command also establishes the first EOV needed by the CREATE and 
COPY functions. 


To perform initialization observe the following: 


Mag Tape or Must be at "Load Point" 

Cassette "On-Line" NOT "Write 
Protected" 

Disc Must be "Ready" and NOT 


"Write Protected" 
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With the media in the above condition, enter the INIT command. 
At job completion, EOJ will be printed. The media is now ready 
for use by CREATE or COPY. 


Example: *INIT (CR) 


BOJ 
* 
6.2.4 LIMITS (Select Low, High Program Addresses). The 
LIMITS option specifies the low and high boundaries of the core 
image to be copied. It is required only when the CREATE command 


is used. 
Format: LIMITS 11111,hhhhh (CR) 
where *11111 is the 5 digit LOW memory address. 
*hhhhh is the 5 digit HIGH memory address. 


*For MDG 16 Bit (06-177F01), this isa 4 
digit address only. 


Example: Set the limits for a program with starting address 
of X'OAO0O' and ending address of X'27C5'. 


LIMITS A00,27C5 (CR) 


6.2.5 SEQNAM (Assign a sequence number, name). This 


option is used to assign a unique three digit sequence number, 

the program 06-# and revision, and the program name. The sequence 
number is used for program identification on the media, and is 

the only means for identification at load time. Multiple defined 
sequence numbers may cause errors. This option is set to zero 
after completion of a CREATE. 


Format: SEQNAM sss,pppppl .R] ,nnnnn... (CR) 
where sss is a three digit sequence number. 


ppppp is the combination of the program 06# 
and revision level. Its structure is 
the three digit 06#, followed by the 
two digit revision #. This field for 
program 06-122R03 would be 12203. 


nmnnnn... is a 30 character free format de- 
scription field. A program's func- 
tional variation and name should be 
included here. 


[.R] is the optional extension field re- 
presenting the number of change page 
packages installed; this field will 
be, zeroed when the program is revised; if 
the field is zero, it will not be 
printed when the media is listed. 
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Example: For the 06-156F01 the series 32 Memory Test Part l. 


SEQNAM 03A,15600,F01 MEMORY TEST PART 1 (CR) 


6.2.6 CREATE (Copy a memory resident program to a media). 
The CREATE command writes memory between the low and high addresses 
specified in the LIMITS option to the OUTDEV media as a core image. 


Core image is absolute, and when reloaded, occupies the same memo- 
ry locations as at the time of the CREATE. The only restraint 

on the CREATE function is that 16 and 32 bit loader format tapes 
must be CREATED on their respective processors. When'the CREATE 


terminates, "EOJ" is printed on the console and the SEQNAM option 
is set to zero. 


Format: CREATE (CR) 


CREATE writes an EOV indicator after every program 
written. This EOV indicator is vemoved (by the pro- 
gram) before the next program is written. 


Example: *CREATE 


EOJ 
* 


6.2.7 COPY (Copy a program from an existing media to 
another). The COPY command generates a core image output media. 


However, it is not generated from a memory resident program, but 
by transferring programs from a previously CREATED media, INDEV 
to OUTDEV. The COPY function has no restraints and will copy 

any previously made media to any output media. When COPY termin- 
ates, "EOJ" is printed on the console. If the COPY terminates 

at EOV, then "EOV" "EOJ" is printed. While COPY can be used to 
copy all or part of the media, the user must maintain the proper 

— media format. See Appendix B. 


During COPY, the sequence number of the program being copied is 
shown on the display panel. 


Format: COPY nnn(CR) 


where nnn is the sequence # where the COPY is to ‘ 
terminate. If it is desired to copy to EOV, the 
following format is used: 


COPY EOV (CR) 
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Example: Copy all the programs up to sequence number 126 
from INDEV to OUTDEV. 


*COPY 126 (CR) 
EOJ 
* 


Copy all the program up to sequence number 92C 
*COPY 92C (CR) 

EOV 

EOJ 

* 

(The above printout indicates that 92C was not 
found on the INDEV.) 


NOTE 


If no I/O errors occur, all programs from the 
present program to EOV or end termination have 
been copied successfully. 


Copy to EOV 


*COPY EOV (CR) 
EOV 

EOJ 

* 


6.2.8 RW (REWIND). The RW command will rewind the spe- 
cified device to the beginning of the media. This command must be 
used on both Mag Tape and Disc. The Mag Tape returns to BOT (be- 
ginning of tape) or the pointers for the Disc are set to zero. 
When the RW is complete, "EOJ" is printed on the console. 


Format: RW x(CR) 


where x=O (letter O) for the rewind of the media 
associated with OUTDEV. 


X = I (letter I) for the rewind of the media associated 
with INDEV. 


Example: *RW O(CR) 
EOJ 


*RW I (CR) 
EOJ 
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6.2.9 FF (FORWARD FILES). The FF command will for- 
ward files. The command terminates when the desired file is found, 
or HOV is detected. If the file is located, "EOJ" is printed on 
the console. If EOV is detected, "EOV" "EOJ" is printed. 


Format: FF x,sss (CR) 


where x = O (letter O) for the media associated with 
OUTDEV, and I (letter I) for the media as- 
sociated with INDEV 


xxx is the three digit sequence # of the pro- 
gram up to which the pointer is moved, or 
the tape is positioned. 


Example: *FF 0,027 (CR) (number found) 
EOJ 
*k 
*FF IT,196 (CR) (number not found) 
EOV 
EOJ 
*k 
*FF O,EOV (CR) (forward to EOV) 


EOV 
EOJ 
* 


i 6.2.10 BF (BACKWARD FILES). The BF command will 
back up files. The command terminates when the desired file is 
found or beginning of volume (BOV) is detected. If the file is 
located, "EOJ" is printed. If the file is not found, "BOV" "EOJ" 
is printed. 


Format: BF x,sss(CR) 


where x - O (letter O) for the OUTDEV media, and 
I (letter I) for the INDEV media. 


XXX is the three digit sequence number ot 
the program being sought. 


Examples: *BF 0,128 (CR) (number found) 
EOJ 
; 4g 
*BF 1,007 (CR) (number not found) 
EOV 
EOJ 


* 
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6.2.11 EOV (WRITE EOV). This command will write END 
OF VOLUME on the media. The command will be accepted only when 
the position of the media is known. This command is NOT for 
general usage. It's primary purpose is in error recovery and 
will be discussed further in section 8. 


Format: EOV (CR) 


Example: *EOV(CR) 
EOJ 


7. OPERATING PROCEDURES 


This section gives instructions for performing MDG operations. 
The following procedures are discussed. 


1. Device Assignments 

2. Media INITialization 

3. CREATE - how to use the CREATE function | 

4, COPY - to transfer the programs to another media. 


An example of the commands necessary to perform the above func- 
tions will follow. For these examples, mag tape address X'85' 
on SELCH X'FO' will be the OUTDEV. Throughout these examples, 
refer to Section 6 for details on Option/Commands information. 


7.1 Device Assignments 
Device assignments must be made as follows. Refer to Section 6. 
OUTDEV - if the CREATE function is to be used. 
INDEV and OUTDEV - if the COPY function is to be used. 
Example: MDG | 
*OUTDEV 1,85,FO (CR) 
*INDEV 2,45 (CR) 
7.2 Media Initialization 
If the media to be used on OUTDEV is a virgin media, it must 
be initialized. Initialization establishes known information 
on the media and provides the first EOV indicator. 
Example: MDG 
OUTDEV 1,85,FO(CR) 


*INIT 


EOJ 
* 
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des 


Create 


To CREATE on a media, the following steps should be followed: 


10 


a 


2s 


3s 


Start MDG at its bias address. 
Assign OUTDEV as outlined in Section 6.2.1. 


FF (Forward Files) the media to EOV. See Section 6.2.9 
if the media is a virgin media, it must be INITialized 
instead of FF. See Section 6.2.3. 


Load the program to be put on the media. Load it as 
instructed for the program. 


NOTE: When building a new media, the first two pro- 
grams written must be the 16 bit and 32 bit 
Multi-Media Diagnostic Loaders. Refer to 


Appendix B. 
Start the MDG at its bias address. 
Enter the LIMITS option. See Section 6.2.4. 
Enter the SEQNAM option. See Section 6.2.5. 


Enter the CREATE command. See Section 6.2.6. The pro- 
gram will be written to the OUTDEV media. When the 
CREATE is complete EOJ is printed on the console. 


TO write another program on the media, return to 

step '4'. When all programs are written, rewind the 
media. Use the RW command as directed in 6.2.8. Re- 
move the media. 


Example: To put the desired Multi-Media Diagnostic Loaders 


(16 and 32 Bit) on the media. The loaders must 
be the first programs on all media and should 
immediately follow INITialization. The number on 
the right indicates the procedure step being per- 
formed. 

Load the 16 Bit MDB on a 16 Bit processor or 

7/32 in HW mode. If building for use on onlv one 


type of processor, refer to Appendix B. 


*OUTDEV 1,85,FO(CR) 
* INIT (CR) 

EOJ 

* 

Load the 16 bit MDL. 
MDG 

*LIMITS 4000,4B4D 
*SEQNAM 001,17600,F01 MULTI MEDIA DI.LDR 16BIT(CR) 
* CREATE (CR) 

EOJ 

*RW O(CR) 


EOJ 
x 


(Remove Media) 
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Load the MDG on a 32 Bit machine and mount the media removed 
above. 


MDG 

*OUTDEV 1,85,FO(CR) 
*FF O,EOV (CR) 

Load the 32 bit MDL. 
MDG 

*LIMITS 6000, 6C4E (CR) 
*SEQNAM 002,17600,F02 MULTI MEDIA DI LDR. 32 BIT(CR) 
* CREATE (CR) 

EOJ 

9. *RW O(CR) 

EOJ 

* 


ONKnU PWN EH 
e e e 


‘(Remove Media) 


Example: For this example the Disc Test/Formatter Program 
(06-122 RO3) will be put on the media. The exam- 
ple media has been INITialized as in Section 6.2.3 
and the 16 bit MDL has been prepared as shown 
in the previous example. The number on the left 
indicates the procedure step beina performed. 


Ls MDG 

2. *OUTDEV 1,85,FO(CR) 

3. *FF O,EOV (CR) 

EOJ 
* 

4. (Load the Disc Test/Formatter program using the 
Relocatable or General Loader) Relocation address - 
X'100'. 

5. MDG 


6. *LIMITS 100,22CE (CR) 
7. *SEQNAM 02C,12203,DISC TEST FORMAT/PROGRAM (CR) 
8. *CREATE (CR) 
EOJ 
9. *RW O(CR) 
EOJ 
* 


(Remove Media) 


7.4 Copy 


When using COPY be sure the required media format is maintained. 
See Appendix B. Follow the steps below to use COPY. 


1. Start MDG at its bias. 
2. Assign OUTDEV as in Section 6.2.1. 
3. Assign INDEV as in Section 6.2.2. 


4, FF (Forward Files) the INDEV to the desired starting 
position. See Section 6.2.9. 


BO6-177M95A15 RO2 6/79 11 


5. FF (Forward Files) the OUTDEV media to EOV. See 
Section 6.2.9. If the OUTDEV media is a virgin media, 
it must be INITialized instead of FF. See Section 6.2.3. 

6. Enter the COPY command. See Section 6.2.7. The en- 
tire media from the current position (determined in 
step 5) to EOV can be copied, or individual programs 
or groups of programs can be selectively copied. 

7. Rewind both medias. 

Examples: To COPY the entire media to a virgin media, the 

INDEV is a Disc-device X'C8' - Controller X'B8! - 
SELCH X'FO'. 

1. MDG 

Zs *OUTDEV 1,85,FO(CR) 

om *INDEV 4,C8,FO,B8 (CR) 

4. *FF 1T,001 (CR) 
EOJ 

as * INIT (CR) 
EOJ 

6. *COPY EOV(CR) During the copy, the sequence num- 
EOV bers of the program are displayed 
EOJ on the display panel. 

Ts *RW O(CR) 
EOJ 
*RW I(CR) 
EOJ 
* 

Example: Copy only one program #27 to OUTDEV from INDEV. 

Same devices as above. 

l. MDG 

as *OUTDEV 1,85,FO(CR) 

3. *INDEV 4,C8,FO,B8 (CR) 

4, *FF TI,027(CR) 
EOJ 

5. *FF O,EOV(CR) 
EOJ 

6. *COPY 028 (CR) 
EOJ 

Vs *RW O(CR) 
EOJ 
*RW I(CR) 
EOJ 


* 
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8. ERRORS/ERROR RECOVERY 


When Errors occur in the MDG system, a message is logged on the 
console device. These errors appear in two formats: 


1. ERROR xxyy 
* 


2. ERROR xxyy 
JOB ABORTED 


This section gives a list of errors and prescribed error re- 
covery. 


8.1 Errors 


The error formats of MDG are broken-down as follows: 


ERROR xxyy 


where xx - the device address if the error is device related 
or is zero if it is not a device oriented error. 


yy - the Hex error code. Table 1 gives the com- 
plete list of codes. 


8.2 Error Recovery 


When error format (1) is output (see Section 8) the condition 
of the media(s) remains unchanged as no I/O operation was in 
progress. No recovery is required except to correct the error 
condition. However, if error format (2) is output (see Section 
8), the condition of the media(s) is unknown. Recovery in this 
case is up to the operator. Follow these guidelines in error 
recovery of format (2). 


1. Always BF (Backward Files) the media(s) to the last 
known good program on the media. If a COPY was in 
progress, BF (Backward Files) both medias. BF to 
the program number shown on the display panel. 


NOTE 


If a Disc is the OUTDEV in a COPY operation 
the BF command may yield the "EOV" "EOJ" re- 
sponse. If this occurs, BF the INDEV and 
continue to step 2. 


2. If the error was other than X'E3', correct the error 
condition and restart the operation. 


3. If the error is X'E3', the media must be terminated 
(EOV written). After step 1 above is complete, 
enter the EOV command, The media can no longer be 
used, unless the media error can be corrected or 
skipped over. 
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4. If the error is X'D3', the media must be terminated 
(EOV written). . After step 1 above is complete, en- 
ter the EOV command. If the media is a mag tape, it 
is full and can no longer be used. If it is a cas- 
sette, one side is full. It can be flipped over 
and continued on the other side. 


NOTE 


For convenience, a cassette must have both the 
16 bit and 32 bit MMDL's on both sides. See Appendix B. 


TABLE 1 


ERROR CODES 


YY CODE # MEANING 
EO OUTDEV Media not initialized, or Media at beginning 
of volume (BOV) 
El Tape is not at BOT when INIT command issued 
E2 Disc Pack Unusable under the MDG; cylinger 0 or l 


has a defective sector 


E3 Unrecoverable Read/Write error. 

E4 OUTDEV not assigned. 

E5 INDEV not assigned. 

E6 False sync from an address assigned in OUTDEV. 
E7 False sync from and address assigned in INDEV. 
E8 Disc Status Error; Seek Incomplete or Write Check 


or Write Protect. 


E9 Device Write Protected. 
EA Wrong Disc Type specified in OUTDEV . - 
EB Invalid conditions for COPY; FILE marks found 


when not expected or disc "locked" or no sequence # 
match found. 


EC Disc Pack Full 


ED Directory Full 
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TABLE 1 


ERROR CODES (Continued) 


YY CODE # MEANING Oye sen ee 
EE "DU" from the device assigned in OUTDEV 
EF "DU" from the device assigned in INDEV. 
DO Copy parity error 
D1 Invalid condition for EOV command; output device 


"locked". Use BF or FF before EOV command. 


D2 Invalid or Unassigned SEQNAM 
D3 END OF TAPE 
D4 Sequence number already on the disc. 
D5 OUTDEV = INDEV for COPY. 
FO (16 Bit) FLPT Arithmetic Fault 
(32 Bit) Arithmetic Fault. 
Fl Illegal Instruction 
F2 Machine Malfunction 
F3 Arithmetic Fault (16 Bit) 
F5 System Queue Service (32 Bit only) 
F6 Mac Interrupt (32 Bit only) 
F7 SVC Interrupt (32 Bit only) 
F8 Boundary Error (Series 3200 only) | 
NOTE 


When the position of either the input or output 
device is incorrect (not at BOT, BOV, or File 
Mark) the device is "locked" by the software; 
to correct this condition, position the file 

in question with a BF command. 
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APPENDIX A | 


MEMORY MAP FOR THE CREATE FUNCTION 


Typical reloca- 
tion addresses are 
*X'5000' for 16 
bit *X'7000' for 
32 bit processors. 
Relocation addres- 
ses must be large 
enough to contain 
the largest test 
program to be 
copied. 


Test program to be copied 


*When the MMDG programs are made resident on the media; they are 
resident at these addresses. 


X'0000' 
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APPENDIX B 


The format of the media is essential. When reloading from the 
media the 16 bit MmMpL (06-176F01) and the 32 bit MMDL (06-176F02) 
are assumed to reside as the first programs on the media. The 
format required on all media is as follows: 


- Initialization of the media 


-- Generation of the’ 16 bit Multi-Media Diagnostic Loader 
(06-176F01) as the first program. It must have sequence 
#1. 


- Generation of the 32 bit Multi Media Diagnostic Loader 
(06-176F02) as the second program. It must have se- 
quence #2. 


NOTE 


If a media is being built to be used only on 

one type of processor, the appropriate Loader 
(06-176F01 or 06-176F02) must be put on the media 
twice, once with sequence #1 and once with sequence 
#2. This is required so that proper boot loading 
from the media can be accomplished. 


- Generation of desired diagnostics. 


MAG TAPE/CASSETTE FORMAT 


Boot Loader P P iP} . 
Written by F{D{16 Bit] F}D/32 Bit} F/Djlst Test|Fletc. 
| INIT command|M{B iIMMDL MI B|MMDL 


The Program Definition A double file 
Block (PDB) contains all mark indicates 
necessary information EOV. 


about the program that 
follows it. 
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i APPENDIX B (Cont.) 


Disc Format 


cylinders (SOP to n)* = 


contain the programs 
Pe era aE eee a a ONE 


cylinder (SOD)* - contains the 
program directory 


Directory Format - every sector of the directory is segmented 
into 32 parts. See the breakdown below. On INITialization, 
the directory is set to all zeros. As the programs are writ- 
ten, consecutive entries of the directory are filléd. EOV on 
a disc is detected by zeros in the sequence number field. 


Sequence # byte l 


Sequence # byte 2 
32 blocks per sector Sequence # byte 3 ~ 
Blank 


CYL Address byte l 
CYL Address byte 2 
Sector byte 

Head byte 


* SOP (Start of Program) refers to the contents of the location : 
labeled SOP in the listings. 


SOD (Start of Directory) refers to the contents of the location ; 
labeled SOD in the listings. 


SOP and SOD can be any range (X'FF' maximum) within the limits 
of the disc used, and SOP must be greater than SOD. Loader/Gen- 


erator compatibility requires SOP and SOD compatibility. In other 
words, if a parameter is changed in one, it must be changed in 
the other. 
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APPENDIX C 


USER DEVICE DEFINITION 


1. The halfword labeled IO (see the program listing) has the 
default value for a video display terminal on a PASLA/PALM/ 
Axynchronous Multiplexor interface as the console input-output 
device and the list device. If a different configuration is 
desired, location IO must be changed. 


0 7 #8 15 
TO | CONSOLE DEVICE IDENTIFIER | LIST DEVICE IDENTIFIER | 


CONSOLE 
DEVICE 
IDENTIFIER 


MEANING 


Video display terminal (GDT, CRT, or 
Model 550, 1100, or 1200 terminal) ona 
PASLA, PALM, ox Asynchronous Multiplexor 
Strapped for full duplex operation and 
highest baud rate. 


X*O1° 


X°0O2° Teletype type device, video display 
terminal, or Carousel 15 or 30 ona 


current loop interface. 


Reserved; interpreted as X*°02". 


Carousel 300 on PASLA, PALM, or 
Asynchronous Multiplexor strapped for 
full duplex, highest baud rate. 


Reserved; interpreted as X‘'0Q2'. 


2. The video display terminal, if used on a PASLA, PALM, or 
Asynchronous Multiplexor, should be strapped for device 
addresses X'10' and X'll'. If the base address (X'10') is 
different, then the halfword labeled PASLADR (see the listing) 
must be changed. 


3. The current loop interface, if used, should be strapped for 


device address X'02'. If it is different, the halfword 
labeled CLIFADR (see the listing) must be changed. 
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APPENDIX C (Continued) a 


USER DEVICE DEFINITION 


4. The line printer, if used, should be strapped for device 
address X'62'. If it is different, the halfword labeled 
LPADR (see the listing) must be changed. 


5. The Carousel 300, if used on PASLA, PALM, or Asynchronous 
Multiplexor, should be strapped for device addresses X'10' 


and X'll'. If the base address (X'10') is different, the 
halfword labeled C300ADR (see the listing) must be changed. 
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PROGS MMOG ASSEMBLED BY CAL 03-066R08-00 (32<B81T) 

il SCRAT mng00010 

2 cROSS “5660020 

3 NORX3 MoG00030 

4 SQUEZ mNG00040 

5 SQCHK "0300050 

6 WIOTH 120 M0G600060 

Oo0a000! 7 IFZ Aapdc-2 MOGUOU70 

& MDG PROG MMD GENERATOR 06-177F04R04M96A13 MOG00080 

3 ELSE M9G00090 

10 MDG PROG MMO GENERATOR 06-177F02R045m91A13 moG00100 

11 ENOC MOGOO110 

12 x MULTI = MEDIA DIAGNOSTIC GENERATOR ROG MDG00120 

13. * M0G00130 

14 * COPYRIGHT C PERKINeELMER CORPORATION MAY 1979 M0500140 

15 * M0G00150 

oc00 0000 16 RO Eau 0 MDG00160 

0600 0001 17 R1 EQ@U 1 mDG00170 

0000 9002 18 R2 cQUuU 2 “0600180 

0000 o003 19 RZ f£Qu 3 “™DG00190 

0000 9004 20 R4 Frau & mpGO0200 

0000 0005 21 = =RS cau 8 = 5 mOGO0210 

0000 0006 22 R6 EQu «6 MDG00220 

6060 0007 23 R? EQU 7 40600230 

oeuUd 0008 24 RB EQu iB mpG00240 

0900 0009 25 RI Feu 9 M3600250 

o0vu0 000A 26 RA Eu 10 MDG00260 

0v00 9008 27 RB Eau 11 mOG00270 

oovuo o00c 28 RC Eu 12 MDG00280 

o0v0 9000p 29° RD EQuU 13 MoG00290 

0000 000F 30 «ORE EGU 14 mOG00300 

0000 O00F 31 «ORF equ 15 mOG60316 

‘0000 OOOF 32 LINK £Qu 15 40600320 

VU0000T 4300 gAnA =001LADEI 33 «START B LCORE mDGlU330 

000004] ay pos 12 FILLER mDG00340 

35 * TEST CONSTANTS * moG00350 

O00010y 0104 36 Io oc X*0101°% I/O DEVICE(S) IDENTIEIER m0390360 

GO0012T 39010 37 PASLADR OC x°90108 PALSA/PALM READ ANDRESS MDGV0370 

CcvO14I 6011 38 oc x¢golis PASLA/PALM WRITE ADORES#S M0G00380 

0000161 0062 33 CLIFAOR OC x*9002" CURRENT LOoP INTERFACE READ ADDRESS m™0G600390 

CO0001a1 GOVE 40 oc x*°9002" CURRENT LOOP INTERFACE WRITE ADDRESS MNGYO4O0 

OOD0LALT 0062 41 tPpaADR pc x*90629 DUMMY FOR LINE PRINTER m0G600410 

Gou01CI 662 42 pc X99062e WRITE ADDRESS MOGO0420 

COO01EI 0010 4&3 Cz00ADR oC X*90108 CAROUSEL/PASLA READ ADDRESS mDG600430 

000020% UOl11 uy pc x*o0i11° CAROUSEL/PASLA WRITE «aDORESS m0GU0440 

O0o0221r coco 45 mITCROBUS DC x'oocor MICROBUS READ ADDRESS m0500450 

o00G24zi vocod 46 oc x*oocar MICROBUS WRITE ADDRESS MDGU0460 

47 «x10 = 0101 FOR CRT ON PASLA M0G004706 

4B * 0202 FoR YELETYPEs CARQUSEL 15/30 ™0S00480 

49 Oot XX03 FOR LINE PRINTER “0600490 

50 * 0404 FOR CAROUSEL 300 “0600500 

51 * 0505 For MICRosus m0G600510 

52 +* ETPE tO COMMANDS 40600520 

ocoozei 0000 53 CoONRADR OCxX 0 CONSOLE DEVICE REaD AQDRESS 40G00530 


ina air nena eee rite i) 
a ea ee a a EL eee ES EE eT H+ 


MMO GENERATOR O06-1L77F02ROGMS51A13 


Q000281 
O00024T 


O0g0ecr 
QO0002E1 
ocunosOr 
0500321 
0000341 
000036! 
a0003a1 
Oudgzal 
ooooscl 
QO00ZF!I 
O000401 
O00b4aT 
O0d044! 
og004s!1 
a0gd4a6! 
000471 
00004381 
ooo049I 
OO0ao4Ar 
0000481 


oooo4scl 
UUdOuFT 
cogasaT 
ooanSs4I 
ooocsal 
oaoasc! 
GO6060I 
oong64al 
o0ddégaTI 
dd0o0éc!I 
oagco7al 
000074! 
ocaa7el 
oag07c! 
oooa7e!r 
cocoa! 
0000a2i 
000086! 
DUGOB88I 
OUUOBCT 
6000901 
UOOOS4T 
og0g0ga1 


66009cI 
oocoAgT 
OOODAOT 
ooudkaT 


QO00A6!T 


000c 
od00 
0006 
0000 
0000 
ALAZ 
EFE61 
3498 
0054 
0080 
0000 
A1AZ 


00281 


ooec!r 
FFBE 


FFBB 
FFCC 
FFAE 
FFC2 
FFCS 
FFBF 
FFBC 
FFB6 
FFB6 
FFBO 


FFAS 


9938 
9328 
993C 
98BC 
982A 


O09CI 


981C 


0040 


9882 


=GO00010T 


=0060101 
200002aT 
=00000ET 
=0000267 
=00002DI 
=00002R1 
=00002CI 
=00002AI 
=00002F7] 
209002cI 


7090002871 


=9019C4I 
=001°SB8I 
=O0619DU7 
=0019541 
=0018Cé6I 


=00188CI 


=60195CI 


CONWADR 
CONRD 
CONWRT 
CON2ND 
CoNCmD 
CRTRO 
CRT2NO 
CLIFRD 
cLIF2N0 
LPWRT 


CARRD 
CaR2no 
MREADC 
CONRQ2S 
CRTRQ2S 
CARR@2S 


sod 
soP 
BEGIN 


SKP2ND 


REOPTX 
REDTTY 


0 
0 
CONRD+4 
tt] 


6 
A1A3 
cE61 
9498 
0054 
0080 
0 
AlAs 
F061 
8202 
0 

0 
Xta3t 


R2e10ira} 


R2.CONWaDR 
R2,1G0-2;¢R1) 
R2,CONRADR 
R3eCONCMD-4(R1) 


R3-CONWRT 


R3eCONCMD-2(R1) 


R3,CONRD 


R3eCONCHD(R1) 


R32CONOND 
R3,R3 
SKP2ND 
R2,R3 
R2,CONRRT 
R2eR3 
R3-L0KOuT 
R3-¢LOKIW 
R3.2SEQ 
R2,TITLEe 
R3ePRING 
* 


RE CRLF 
ADC<2 
R220 
R2eX*4qe 


R2,AST 
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CONSOLE DEVICE WRITE aDORESS 
CONSOLE READ/WRITE COMMANDS 


DUMMY HW AS POINTER 
FOR CRT 


* CURRENT LOOP INTERFACE 


* LINE PRINTER 
DUMMY FOR LP 
* CAROUSEL 300 


* MICROBUS 

DUMMY HW FOR MICRO8US 
CONSOLE REQUEST To SEND CMD 
FOR CRT 

* DUMMY AYTE FOR CLI 

* OUMMY BYTE FOR LP 

* CAROUSEL 300 

* DUMMY BYTE FOR MICROBUS 
(ALIGN ON HW BOUNDRY) 

START OF DIRECTORY 

START OF PROGRAM AREA 


GET KEY8D TYPE 

MAKE Fw INDEX 

GET WRITE ADDRESS 
SAVE 

GET READ ADDRESS 

SAVE 

GET WRITE CMO 

SAVE 

GET Read CMO 

SAVE 

GET 32ND CMD 

SAVE 

SET cc 

SKIP SECOND COMMAND 
ISSUE 2ND cMO 

SET WRITE CHMOD 

ISSUE CHO 

LOCK THE OUTPUT DEVICE 
LOCK THE INPUT DEVvIce 


PRINT THE TITLE 


DO CR/LF 


CLEAR 
CLEAR $3200 INDICATOR 


PRINT aN # 


MwOGOCS4Ee 
wNG20550 
m0G606560 
m0G00570 
40600580 
ao¢0e0590 
mo6006G0 
m 606610 
MoG00620 
mMOG6UC630 
MDGUU6RD 
40600650 
M4o0G00660 
496900670 
“0690680 
mngo00699 
MOGOOTOS 
woG600710 
MOGOCT20 
0600730 
eO6007400 
mOGO07TSA 
mMO0G007¢0 
“06007706 
m0G600786 
mOGOO07S0 
mDGUUatG 
MDG00810 
mo0609820 
mogU0830 
mDGO0840 
HDGUUaSsO 
4DG600860 
“ogo0s7s 
mDG00880 
M0G00890 
MOGUOYOD 
4060960940 
mogon9e) 
mMpsgoG930 
woG009KNG 
BOgGuagsg 
4§DG00960 
MOGUUS?7O 
mDGYUIBD 
MOGYU990 
MOG¥LUCEO 
MDGY¥U0 10 
m0G691920 
MOGYUL9RC 
0601040 
mDGY1950 
mBEQLUED 
mMOGO91076 
MOGULUgS 


MMO GENERATOR 


OOOOAAT 
OOOOAEI 
v0U0gOr 
oosoB4l 
ooooRel 
ooo0BAI 
oonoRE! 
oouocor 
ooooc4s! 
oacoce!l 
o0n0cAl 
0000CEI 
oooop0! 
o0g0DaI 
o005D4I 
oco0Dél 
cooopal 
ooooDE! 
GOocEOT 
o000c2! 
OOCOE41 
oooocel 
oGOorAl 

*OOQGEE! 
O000FOI 
o0o0r4! 
o000F81 
vovorc! 
0001001 
0001041 
0001081 
o00010cI 


Coo10ET 
6001101 
0001141 


0001181 
O0011cI 
0004201 
0001241 
oca12e8! 
oo012Ar 
00012E1 
0001321 
0001361 
0001381 
00013cI 
OO013FI 
0001421 
ooo146! 


4130 
O74%4 
4040 
G722 
C830 
4032 
2622 
c520 
2085 
4820 
D330 
5E23 
9023 
2061 
9B25 
4820 
D336 
9E23 
9023 
2081 
9h25 
c450 
C550 
2183 
cB50 
C550 
4330 
D254 
c550 
4330 
c550 
23356 


2641 


c54o 
4280 


c8ic 
4010 
4010 
4010 
O711 
4010 
4130 
c500 
2339 
Cu 
2356 
p2ui 
c510 
208C 


9818 
A156 


2020 
9E32 


9032 


FFSC 
FF5C 


FFSE 
FF4D 


QO7F 
0060 


0020 
0008 
807¢C 
9DFO 
0023 
FFS4 
coop 


0032 
FFAE 


2020 
9EVUa 
9£96 
9EUy 


gE00 
9834 
0020 
0000 


SDE5 
0007 


06-17 7FG2R04H91A13 


=0018C61 


=O022VUaT 


=OO1LEFOT 


=6000261 
=00002aAI 


20000281 
=0¢0023I 


=0001781 
sO01EF 07 


=00009CI 


=0000C6I 


=Q01F281 
=OG1F2AT 
2001F2cCI 


=OQiF2E1 
=0019661 


=O01F271 


109 
110 
111 
lle 
113 
114 
115 
116 
117 
118 
1193 
120 
121 
122 
123 
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ZERO THE 
EQU FLAG 
BLANK 
OUT 

THE 
BUFFER 


GET READ ANDRESS 
GET READ CMD 
ISSUE CMD 


BUSY ? 

NO ~ READ THE CHARACTER 

GET WRITE ADDRESS 

GET WRITE COMMAND 

TURN LINE AROUND 

SENSE STATUS 

WAIT FOR BUSY NOT 

ECHO OATA 

MASK OFF PARITY BIT 

LOWER CASE CHECK 

SKIP 

MAKE UPPER CASE 

BS?7 

YES 

STORE THE AYTE 

# ? 

YES = START THE INPUT OVER 

CR ? 

YES = GO LOOK FOR & 
MATCH 


FIFTY CHARACTERS? 
NO ° 
YES - LOOK FOR MATCH 


CONTROL COMES HERE wHEN THE CR IS HIT ON OPTION ENTRY,OR 
THIRTY (30) CHARACTERS HAVE BEEN INPUT, 


REOPT BAL R3ePRINT 
XAR R&eRY 
STH R4eEOUFIG 
XAR R2yR2 
LHI R3sX"2020° 
REDINB STH R3eINBUF(R2) 
AIS R22 
CLHI R2,50 
BLS REDOING 
REDAB LH R2,CONRADR 
iB R3,CONRD 
ocR R2eR3 
SSR R2eR3 
B8TBS 8,1 
ROR R2.R5 
LH R2+eCONWADR 
LB R3,CONWRT 
OCR R2eR3 
SSR =s- R2, RF 
BTBS 8si 
WOR R2eR5 
NHI R5SeX*7Fe 
CLHI R5SeX'60" 
BL NOECHO1 
SHI R5eX* 208 
NOECHO1 CLHI R5eX'O8* 
BE OELCHR 
STB R5.INBUF(RS) 
CLHI RSeX*235e 
BE REDTTY 
CLHI R5eX* One 
BES REDAC 
x 
AIS R4&,l 
CLHI R4,50 
BL REDAB 
x 
* REDAC 
¥ 
* 
RFDAC LHI R1ieX*20208 
STH R1,sCMD 
STH R1sCMD+2 
STH R1isCMDe4u 
KAR R1,R2 
STH RieCMhO+e 
cMDAB BAL R3.S6ETCHR 
CLHI ROeX*208 
BES CMDAA 
CLHI RO.X*Ope 
BES  CMDAA 
STB RO.«CMD~7(R1) 
CLHI R17 
BLS CMDAB 


BLANK 
OUT 

THE 
COMMAND 
WORD 


END OF NAME ? 

YES 

NAME ENDEO SY CR ? 

YES = GO MaTCH [Tf 

NO = SAVE THE CHARACTER 
6 CHAR 7 


MDG¥1U90 
“9601100 
mp6¥1110 
MOGG1126 
“0601130 
M9G¥1140 
#3601150 
mOG01160 
m™DG01170 
40601180 
m0601190 
40601200 
MDG01210 
m9601220 
495601230 
m0G01240 
40601250 
m0G601260 
MpG01270 
M0601280 
™90601250 


406601300 


40601310 
m0601320 
“™J601330 
m0G601540 
0601550 
w0GU1360 
MDGO1570 
m0G01380 
460601390 
mDG01460 
40601410 
MDG601420 
"0601430 
MDG01440 
M9G601450 
m0G01460 
M0G6C1470 
mO6614%80 
“0S01490 
mO0GY¥1500 
40691510 
40601520 
m0G01530 
m0G601540 
M0G¥1550 
MOGO01560 
“0601570 
M0G601580 
m0G01590 
wDG¥1600 
MDG01510 
40601620 
m0G601630 
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164 »* COMMAND NAME IS IN caD. CMD+2, CMD+4 mOG016490 
Qoo14al 2528 i165 CMDAA Lcs R2,8 SET UP THE POINTER #0601650 
00014al 2628 166 CMUAAL AIS R2-8 ADJUST POINTER mDG01660 
00014CI 4802 803c =00018cC! 167 LH ROsINNaAME(R2) GET THE FIRST TWO CHARACTERS “0601670 
0001501 4330 9820 =0019741 168 32 QUEST ZERO? - END OF TASLE MDGV¥16e0 
OU0L541I 4500 gD0U =001F2aI 169 CLH RO,CHD EQUAL ? m06¥01690 
6001581 2037 170 BNES CHDAAL NO - TRY AGAIN mD0G01700 
o9015aT 4802 8030 =00018E2 171 LH RO INNAMES+2(R2) YES » GET THE NEXT THo CHAR. MOG6C01710 
Q0045EI 4500 sDcga -O0LF2ZAI 172 CLH ROCMD+2 EQUAL ? m06¥1720 
0001622 203¢ 173 BNES CMDAAL NO = TRY AGAIN MOGO1730 
Q00164I 4802 8028 =000190I1 174 LH ROsINNAME+4(R2} YES « GET THE NEXT THO CHAR MOGO174O 
0001681 4500 g0c0 =G01Facr 175 CLH RO, CMG+4 EQuAL ? M0G601750 
O06016c1 46230 FFoa =00014AT 176 BNE CMDAAL NO = TRY AGAIN m0G601760 
177 x MATCH M0G01770 
OCOL70L 4842 BO01F =000192T1 1768 LH R4,INNAME+6(R2} BRANCH TO THE ROUTINE SPECIFIED m0601780 
COO174I 4304 8014 =90018CI 179 B INNAME (Ru) IN THE TABLE M0G01790 
000c 0178! 180 )6DELCHR EQU x MOG01800 
Ooo17si Gaey 181 LDAR R&LRY IS THE POINTER ZERO ? romD0G01610 
QOOL7AI 4330 FF4A =0C00C6I 182 B2 REDAB YES « THEN NOTHING IN THE BUFFER, “42601820 
ooo17el 2741 183 SIS R4el NO = DECREMENT COUNTFR ROMDGO01820 
0001801 C&20 g020 iay LHI R2eXt20e LOAD A SPACE M0G0184q 
0001841 0223 9068 =001EF OY 185 STB R2,INBUFIRS) STORE THE SPACE “0601850 
000188SIl 4300 FF3A =0000CK6I 186 8 REDAB CONTINUE 7601860 
LEFF KER RKEKRERE SAAR RARER EERE KEKE REESE EAKKAERA TERS RE KEKE KERR REE ERE YX “0601870 
18a x m0G01580 
189 « OPTION TABLE * 4DG01890 
190) ox * “0601900 
191s THIS TABLE CONTAINS THE & CHARACTER ASCII MNEMONIC OF THE * 4UG601910 
19> * OPTION+ ASANO THE ADDRESS OF THE OPTION INPUT ROUTINE * a0601920 
193 * DESIGNED TO HANDLE THAT PARTICULAR OPTION, * “0601930 
194 x * MONGO01940 
195 kK RHA SEERARAEEEHEREAETSEREREKKERAREERAE AKA AERALRERE ECE ES KEKRERE CERES EE m0G01950 
ooo18CI 4F55 5444 4556 196 INNAME pc CrOUTDEV® eZ (OUT INNAME } m0601960 
0001921 ooca 
Q000194l 494F 4445 5620 197 oc CtINDEV *eZCIN@-INNAME) m0G601970 
00019AI Gibso 
ono01g9crI 4cC49 4b49 5453 1948 pc C*LIMITs* eZ(LIMI TSI NNAME) “0601980 
aoc1A2I 905A 
OOOLAYT $345 514E 4140 199 pe C*SEQNAM® .27(SEQ=INNAME) MOGO1L9S0 
CGOLAAL 0494 
OOd1ACIT 4352 4584 5445 200 pc C*CREATE * »2(CREA=INNAME) m0G02000 
0901821 o0Dc4 
OG6S1B842F 5257 2020 2020 201 oc C*rw *sZ2(RW7INNAME) m0G602010 
BOOLBAI 0438 
OGO1BCi 464% 2020 2020 202 oc Creer +e Z(FF*INNARE) a0602020 
goo0ic2I o1ice 
ocdoic4!l 4246 2020 2020 203 oc CaF ¢4Z(BE-INNARE) “0602030 
ooo1cal ibs 
OGNLCCL 454F S620 2020 204 oc crEOV eZ EVOINNAME) mD602040 
00G102I a5F4 
QO01DSI 434F 5059 2020 265 oc CtCOPY %e2(COPY<INNAME) . 40602050 
agoo1oAl 0586 
D0010CI 4946 4954 2020 206 oc C*INIT %*sZ¢CINIT*INNAME? 49602060 
QOOLE2I oac4e 
GOGLENI 0009 207 be xeoccder 40602076 
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O001E6I 
OOO1EAL 
ooo1eC! 
OOD1EEI 
aociFal 
oooiF2l 


OOCLEST 
GaA3I1F al 
vOOLFCI] 
doo200! 
Oc0ecsT 
oco20s8I 
cog2ccl 
00020] 
00021eT1 
600214. 
ooa216!l 
OOC2LAT 
0002i1CcI 
0002201 
das224T 
OG02261 
ooa22aTt 
O0602ecTr 
G@00030] 
O0G623541 
000236! 
O0dazal 
00023ET 
o0oz40I 


0009 
&640 
24E6 
a722 
5024 


2456 


4130 
cS00 
4330 
c500 
4336 
c5¢é0 
233¢ 
4130 
1124 
0620 
5024 
2751 
4230 
4300 
O8EE 
4230 
24b1 
£640 
4300 
O8EE 
4330 
5au0 
1003 
1101 


O1E6I 
9CE2 


0000 


976EF 
0020 
9774 
9005 
&02Cc 
o0ec 


SATA 


0000 


FFD4 
975U 


9744 


9Ca0 
FFB6 


973A 
SCBE 


=OO1ECCI 


20019661 
=0019741 


=0002341 


=00i1c8cI 


=0001F 41 
20019741 


=0019741 


=O0C1ED9T 
=0001FCI 


2001974] 
-O01ECCI 


208 
209 
210 
211 
<i2 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
226 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
244 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 


eee RH ARH HHH HK HHH KH HH HH OH 


KH KEKRHEKKKEK ECE KAESKEKE SE ERK EKAERARKHEKKS AK AREER ATE REESE KES EEKKHKEEREK ES & 


LIMITS 


LOHI 


LOHT1 


HTPRT 


LoHIEN 


FUNCTI 


ONSe CON 


( t . 
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THE FOLLOWING ROUTINES ARE USED FOR SPECIFIC INPUT 


TROL COMES HERE AS A RESULT OF 


THE LABEL IN THE OPTION TABLE. 


LIMITts 


THIS ROUTINE WILL HANDLE THE INPUT OF THE LIMITS OPTION. 


INPUT? 


OUTPUT: 


EQu 
LDAI 
LIS 
XAR 
STA 
IFNZ 
LIS 
ELSE 
LIS 
ENDC 
BAL 
CLHI 
BE 
CLHI 
BE 
CLHI 
BES 
BAL 
SLLS 
OAR 
STA 
sts 
BNZ 


B 
LDAR 
BNZ 
LIS 
LDAT 


B 
LOAR 
B2 
LOA 
SRLS 
SLLS 


Ril = THE 


It 


As DATA. 


THE FOLLOWING LOCATIONS CONTAIN THE INPUT DATA 


*"LOwn 
HIGH 


THIS RouT 
BOUNDRY, 


* 
R44, LOW 
RE, 0 
R2—R2 
R2,0(RG) 
AOC#2 
R5,6 


R5-.5 


R3Z,GETCHR 
RO,X*208e 
QUEST 

RO X*O0pe 
LOHIEN 
RO,Ct,? 
HIPRT 
R3,ISHXcO 
R204 
R2,R0 
R2,0(R4) 
R5,1 
LOHT1 
QUEST 
RERE 
QUEST 
RE,»l 

RY HIGH 
LOHI 
RE,RE 
QUEST 
ROwLOW 
RO,v1 
RO,1 


KAKA EEE ESKER CE KEKE EERE EKER E Ky KKEREKE KEKE EES KESARKEKARKEEEY 


CURRENT INCREMENT INTO THE INPUT BUFFER, 
POINTS To THE FYRST CHARACTER TO BE USED 


- THE LOW LIMIT ENTERED 
- THE HIGH LIMIT ENTERED 


* 
* 
x 
= 
* 
x 
x 
4 
* 
* 
* 
= 
* 
INE ALSO ROUNDS LOW AND HIGH To a HALFWORD * 
AND TESTS THAT LOW < HIGH. x 
* 
x 
SET THE DISTINATION ADDRESS 


SET THE LOW FLAG 
ZERO OUT THE ADORESS aCCUMULATOR 


SET THE CHARACTER COUNT 
SET THE CHARACTER COUNT 


GET A CHARACTER 
SPACE 7 

YES - PRINT "7% 
CR ? 


COMMA ? 


TRANSLATE ASCII To HEx 
SAVE 


MAX CHARACTERS 7? 
NO 
YES = PRINT "2" 


SEY THE HIGH FLAG 

SET THE DESTINATION ADDRESS 
BRANCH TO COMMON ROUTINE 
WAS HIGH ENTERED 

NO = ERROR 

GET THE LOW ADDRESS 

MAKE IT EVEN 


mM 2602080 
uQGO02090 
m™602100 
moG6021190 
40602120 
40602130 
moG02140 
m0G02150 
™DG02160 
0602170 
m™0G602180 
m0G602190 
MDG02200 
m0G602210 
a0G02220 
M0G02230 
MDGO02240 
40602250 
mDG602260 
“D602270 
m0G02280 
m0G602290 
MDGY¥Z300 
M0G02370 
mDG02320 
M0G02330 
MOG02346 
40602550 
™DG602360 
40602370 
MDG02380 
40602390 
mOG02400 
MUGU2410 
mOG602420 
m5GO02430 
MNG02440 
MUG02450 
m0G92460 
m0G02470 
mMD602480 
40602490 
40602500 
M0692510 
mMoGV¥2520 
M0G02530 
mnGv2540 
M0G02550 
45G6¥2560 
MDGY¥2570 
MDG025866 
MO0GV2590 
M05 42600 
w0602610 
MOG02620 


MMO GENERATOR 


vo024aT 
OO0a461 
O0024ar 
o0024EI 
G0025aT 


o002561 
ooo25al 
vooescl 
oo0025eI 
ooo2écl 
a0c2621 
0002661 
0002681 
soo26c! 
O09S6Fr! 
ooo2z7eal 
v00eT76I 
ago27alt 
oo0e7EL 
ooo282t 
oo002861 
ooo2BArL 
noc2set 
vUaSg0T 
CO92941 
oo029ar 
QC029AT 


' g3029Er 


aqaqan2Ae!t 
OCGP2A4T 
ooceaal 
oao2act 


5060 
$8V0 
5500 
4286 
4300 


oodo 
£640 
2451 
OBF& 
0874 
0788 
4087 
2672 
C574 
2035 
4130 
c50G 
4350 
cS00 
4¥330 
c500 
&330 
c550 
2333 
43uU0 
4430 
0800 
4330 
c500 
2183 
4300 
4004 
2651 


9086 =OQ01ECCI 
9C82 =OG1ECCI 
9C@2 =001FD21 
FE4A =00009CI 
971E 20019741 


02561 
SCTE =0V01EDaI 


0000 
o608 


96F4 20019667 
0026 
S6FA 20019741 
002C 
8032 =0002841 
0000 
8052 =0002DCI 
o0g1 


96E0 =6019741 
99F4 =001C8CI 


9606 =9019741 
0007 


96CC =O01974T 
a000 


O6-177FO2R08M91A13 


RO,LOW 
RO,LOW 
RO HIGH 
REDTTY 
QUEST 


PAGE & 


15:13257 11715781 


YES 
TIS Low < HIGH ? 


KTR ERE EE EE EES EE ERE EE EEE RE REE KEKE EEE EE EE EE REREEEE EES EE EE 


KEREEAS ELEY RACK AKEST EEK EERE XECRE TREES AKAKE ES EVEREST ARS RETEERERES KEE 


263 STA 
264 LOA 
265 CLA 
266 BL 
267 8 
268 

269 = 

270 *« OUTOENV 
271 x 

272 & 

273 x 

274 * 

e275 * INPUTS 
276 * 

277 x 

278 «* 

279 * OUTPUT? 
2a80 (Cx 

281 « 

282 * 

283 * 

284 & 

285 « 

286 * 

287 * 

288 «* 

2a9 

290 «out Eau 
251 LDAY 
252 oOuINa LIs 
293 LDAR 
294 LDOAR 
295 XAR 
296 OUINL STH 
297 AIS 
298 CLHI 
2993 BNES 
300 OUIN BAL 
SOL CLHE 
302 BE 
$03 CLHI 
304 BE 
305 CLHI 
306 BE 
307 CLHI 
308 BES 
Zs B 
310 QuINa BAL 
311 LOAR 
312 Bz 
313 CLHI 
314 BLS 
335 B 
316 QUIN2 STH 
317 Als 


THIS ROUTINE WILL HANOLE THE INPUT OF THE "OUTDEV" OPTION 


Ri = THE CURRENT INCREMENT INTO THE INPUT BUFFER, 
IT POINTS TO THE FIRST CHARACTER TO BE USED 
Ae DATA, 


THE FOLLOWING LOCATIONS CONTAIN THE INPUT DATA, 


"OUTDEv" 


"QUTDEVsas 
"OUTDEV+4" 
"QUTDEV+6" 


THIS ROUTINE 


& 

Re ,OUTDEYV 
R5,1 

RF ¢R4 
R7eR4 
R&,RB 

RB, C(RTF) 
R792 
R78(R4)- 
OUINL 
R3,6ETCHR 
RO X*20e 
QUEST 
RO,Ct,? 
QUINFL 
ROX* Ope 
CHKIGFE 
RS¢ 
OUINI 
QUEST 
R3+ISHXcO 
ROeRO 
Quest 
RO,X°*7? 
OUIN2 
QUEST 
ROeG(R&) 
R5.2 


THE DEVICE INDICATOR 

THE VEVICE ADDRESS 

THE SELCH ADDRESS (IF oUTOEY NOT = 2 
THE CONTROLLER ADDRESS (IF OUTDEV > 2) 


VERIFIES THAT: 
1. A SFLCH IS NOT INDICATED WITH A CASSETTE 
2@e A SFLCH AND CONTROLLER ARE INDICATED on A OSC 


he 


SET THE DESTINATION AnORESS 
SET THE ROUTINE INDICATOR 


SEY A CHARACTER 

SPACE 93 

YES © PRINT "9" 

COMMA ? 

YES ~ 60 PROCESS THE NEXT FIELD 
cr 

YES 

NO © FIRST FIELD 2 


= ZERO 7 
YES = INVALID 
<7 9 


* 
m 
* 
* 
* 
4 
*x 
* 
* 
* 
* 
* 
* 
* 
x 
* 
x 
* 
x 
* 
* 


mOGU2630 
2UGg02640 
MOGY2650 
MOG02660 
M0G¥2670 
mM0G02680 
M0G602699 
mDG02700 
wOGO27T10 
40G02720 
MDGO2730 
MD602740 
mMO0G02750 
mnG02760 
“0602770 
M0G02780 
MOG02796 
MDG602800 
40602610 
moGO282c 
mDGG2630 


PAOREA 
MOSo2eso 


MDGO2656 
mDG02860 
M5G692670 
mngo28a0 
weooo26ec 
MOGG2909 
mpG602970 
mO0602920 
MpG602930 
aDGO2S4us 
HDG02950 
MDSG62960 
MOG023976 
“0602960 
MDGEO2999 
mOGY3ZU90 
mMO0GG30706 
MOGU3C EG 
MOHG03030 
MOGOSO04K0 
0693050 
mb603960 
MDGO3076 
moG603080 
MDGUSUGN 
MNGe3L00 
m0G03110 
mns¥3120 
MDGO3130 
wuG6031400 
mUGU3Z150 
MDGO03160 
apogo3170 


“MQ GENERATOR 


onneael 
OUVveROI 
oco2a4!i 
0002381 
ooo2Bcl 
onoc2sgEl 
oocoa2co!l 
0OUVeCa2T 
O0002cé6éI 
eoo2cal 
oo02accl 
0002cEer 
oob2del 
o002D41 
ooo2nél 
0002nar 
ocaeocl 
O00SE0I 
CO0O2E4I 
oo02caI 
ooozEec! 
Q00SFOI 
o0o2F4I 
OOv2FAI 
ooa2FCc!I 
OCN2FET 
0003001 


0003021 
0003041 
0003081 
00030crI 
0003101 
0003141 
0003181 
00031CI 
0033201 
0003221 
0003261 
00032aI 
00032E1 
0003301 
0003321 
3003341 
0003361 
000338] 
00033a1 


0870 
4300 
C550 
4330 
2642 
0722 
2462 
4130 
4130 
1124 
0620 
4024 
2761 
2039 
2651 
4300 
C550 
4280 
C570 
4260 
c550 
4230 
F5FO 
2333 
24F2 
2302 
O7FF 
0060 
OAT? 
4897 
GO7E 
409F 
4300 
c550 
4330 
C576 
2135 
c550 
4230 
4300 
0000 
0000 
0000 
0356 
0197 
0336 
0336 


FFRA =00026FI 
0005 
96Ba =0019741 


g6n¥ =001966I1 


99c2 =001C8cI 


0dg00 


FF92 =00026F1 


9003 
9690 =0019741 
0003 

8028 =0003141 
0005 

9680 =0019741 
6000 1€D8I 
03021 


8026 =00032ET 
9E86 =0021C4I 
s€ea =0021CsaI 
FOs8 =000U09CT 
0605 

965e =0019741 
0002 


0003 
964A =001974I 
FO6E =00009cI 


318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
530 


Go-177F02R04MN91A13 


OuINFL 


TOFUN2 


oulNx 


CHKTI OF 


OurTMx 
uPCHKCOM 


CHKIO1 


CHKCMD 
CyLTAB 


OC 


PAGE 


R7,R0 
OUIN 

R5,5 
QUEST 
Ruewe 
R2eR2 
R602 
R3,GETCHR 
R3,I1SHxcCO 
R24 
R2,RO 
R2eG4(R4) 
R6,1 
QUINX 
R5el 

QUIN 

R5,3 
quest 
R7eX*Ose 
CHKIO1 
R5.X°058 
QUEST 

RF, OUTOFV 
CUTMX 

RF e2 
UPCHKCOM 
RF RE 

* 


R7,R7 

RS eCYLTAB(RT) 
R7eTRKDEN(RF ) 
RO eMAXCYL IRF) 
REOTTY 
R5eX*OSe 
QUEST 

R72 

CHKCMD 

R5.3 

QUEST 

REDTTY 

Hot 

Hro? 

HQ" 

H*a22? 

H*GO7? 

H*e22° 

H’a22? 


7 15813857 11/13781 


EXCEEDED MaxIMUM # OF FIELDS 
YES 
BUMP POINTER BY 2 


GET CHARACTER 
CONVERT 
SAVE 


STORE 

MORE CHAR ? 

yes 

NO « BUMP FUNCTION COUNT 


SHOULD TRKDEN » MaxcYt 8E UPDATED 
OUTOEV 
SET THE INDEV INDICATOR 


SET THE OUTDEV INDICATOR 


DOUBLE DEVICE POINTER 
LOAD MAXCYL 

SAVE 

SAVE 


< 3 « SHOULD NOT HAVE 4 FIELOS 
= & = NG 


CASSETTE ? 

NO 

YES . MORE THAN Two Fretos ? 
YES - ERROR 

NO « RETURN 

0 

1 

2 


3213,5 MB OTSK 
4=10 MB DISK 
S=80 MB OISK 
62300 MB DISK 


Roy 


RAK RRR EERE RE KEE EE EE EERE EE KEE AEE KEE EE EK EERE ERERAEKERE 


IND 


et eth kh tz # 


Ee Vv 


THIS ROUTINE WILL HANOLE THE INPUT OF THE "INDEV" OPTION 


INPUT? R1 = THE CURRENT INCREMENT INTO THE INPUT BUFFER: 


+t eH eH Oe OH 


M0G031a0 
M0G43190 
M0GG3200 
MOGU3216 
MDG03z220 
MO0603230 
60603240 
m96U3250 
M0GY¥3260 
406903270 
MpG¢03280 
MDGO03290 
MO0G03300 
MD603510 
MDGG63320 
M0GU3330 
MDG03340 
MO0G6U¥3350 
MDG03360 
40603370 
mO603380 
M0G6¥3390 
mDG03400 
MDGO34i90 
"0603420 
M0G03430 
40603440 
NDGO3456 
MO0G03460 
40G034%70 
mo693480 
M0603490 
wDG¥35900 
M0603510 
w 683520 
“0603530 
MDGO3540 
MDG03550 
M0G03560 
m0G035706 
MDG03560 
m0603590 
“0693600 
M0G03610 
40603620 
MDG03630 
MDG03640 
mM0G03650 
M0603660 
MDGO3670 
MO0G03680 
MDG03690 
MDGO3700 
M0G037210 
MDG03720 


MMD 


oog3ccl 
O00zD0L 
Oc03D4I1 
0003paI1 
uoosocr 
O0OSE0I 
O00zE2T 
oOO3E6I 
O00ZEaI 
OO0O3ECI 
OU0ZFOI 
O00ZF4I 
OOO3FBI1 
0003FAr 
0003FcI 
VGO4OOr 
0004041 
VOO4061 
COdyOal 
GCOd"p0ET 
oo041aL 
0094161 
O0O41aAr 
00041ET 
0004221 


0004261 
YUdG2aT 
00042E1 
O00432T 
0004361 
00043AI 
00043E1 
OO0044arY 
oo0o44sI 
O004GAT 
Oo044deET 
0004521 
0004541 
00045aI 
00045cI 
Gou4e0r 


O00464T 
GG046a1 
00046CI 
O0046EI 
UGQu72T 
ooo476!I 
000478! 
O0047CI 
000480! 
000484! 


OGo4saT 


GENERATOR 


C500 
4230 
cs8o0 
40g 
p200 
2453 
4300 
24Fe 
4200 
C550 
4230 
40A0 
O8AA 
2136 
4130 
4130 
2305 
4130 
4130 
DEAO 
cSlo 
4389 
DEAO 
4830 
4230 
0000 
DEAO 
4190 
E650 
E6606 
£610 
4130 
4830 
4530 
4230 
D330 
0340 
0534 
4230 
DEAD 
4100 
4300 
0000 
4100 
4800 
2335 
DEAO 
41¥0 
240F 
4000 
DEAD 
4106 
43500 
00006 
4160 


0056 
9540 =0019741 
3030 
9DE4 =0021CY"r 
9DF> =0n21C2I 


FF9C =000382T 


FFag =0003741 
0n03 

95460 =001974] 
9EU6 =0021FEI 


95c¢4 =0019C4I 
9376 =06017B62I1 


95AE =0019B8I1 
93EC =0017FAI 
9498 =0018AATI 
0003 

8098 =0004B2I 
9496 =0018BaT 
9004 =0021F6I 
BO3E =0004641 
04261 

947¢ =0018A6I 
9552 =00198UT 
9AFE =001F301 
9B2c =001F62I1 
S04E 20004881 
910g =0015461 
9D07E =0021C0] 
9AEA =001F 3507 
FFD =00041E! 
9074 =0021CaI 
9AEO =001F32I 


FFC6 =00041EI 
$451 =0018ADI 
9520 =0019801 
B09E =000502T 
O464T 

$526 =00198E1 
908E— =0021FAI 


9435 =0018A7I 
9518 =00198ETI 


907E =9021FAI 
9427 =0018A7TI 
954A =00198F1 
FF9E =0004261 
04881 

O4F4 =00198Uy 


4a3 
4a4 
485 
466 
487 
488 
489 
490 
4914 
492 
49% 
494 
595 
496 
497 
498 
499 
500 
50] 
502 
503 
S04 
§05 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 


O6-177F02R04M91413 


FFCOMI 


FFIT 


FEIT. 


FFIT2 


FEBF1 


FFIT3 


BFIT 


BFITI 


Brits 


FFEOV 


Ro,C*ve 
Quest 
ROeX* 30x08 
RO,»PGMNUM 
RO,» PSOMNUM42 
R5,.3 
FFMORE 
RFe2 
FFCOM 
R5-3 
QUEST 

RA, IOFLaG 
RAdRA 
FFITI 
R3eLOKOUT 
R3,LODan 
FFIT2 
R3eLOKIN 
R3.LIDan 
RAeDISAAL 
R1i,gX*3s 
FFDOISC 


RA CLEAR 


R3eFFBFFL 
BFIT 


¥ 

RA.FWEA 
RO.NOMOTN 
RS oF FBUF 
R6eFFBUF+50 
R1,FFEov 
R3,READeB 
R3.P6MNUM 
R3.FFBUE 
FFBF1 
R3.PGMNUM+2 
RG, FFBUF+2 
R3sR4 
FFBF1 
RA»BKSP 

RO .NOMOTN 
FFDSCS 

* 

RO eBKEMNM 
ROeBKSPEL 
BFIT4 
RAeBKE 

RO ~BKF MAM 
RO.15 

RO .BKSPFEL 
RA,8KFM 
RO,8KFEMNM 
FFITS 


*x 
RO wNOMOTN 


PAGE 10 15:13:57 


11/13/81 


Is lt v ? 
NO 


SET FLAG 


COUNT = 3 
NO 
YES » SET cOoNDITION 


ZERO THE FF THE OUTDEV 


LOCK THE INPUT DEVICE 
LOAD THE INPUT ADDRESSES 
IDSABLE INT 

TAPE ? 

NO = DISC 

YES #CLEAR 

GET THE FLAG 


FORWARD FM 
WAIT 
SET UP TO READ 


READ THE PDB 
GET THE NUMBER ENTERED 


NO 
YES = GET THE THIRD OITGEIT 


NO 
YES « REPOSITION THE TAPE AT 


WAIT FOR NO MOTION OF ROT 
BACKSPACE FLAS SET ? 

NO = DO 1 BACKSPACE 

YES «= 00 2 BACKSPACES 
WAIT FOR NO MOTION OF AOT 


SET THE COUBLE BACKSPaCcE FLAS 


WAIT FOR NO MOTION OF BOT 


MO0G6048306 
mOGU4840 
m0G94850 
MOGY4660 
mMDGUSB70 
4DG04880 
aDG04890 
MDG04900 
M9694910 
M0G04920 
MO0G04930 
MDG04940 
™DG04950 
mocG04960 
MOGU4970 
mDG¥49R0 
MDG04990 
mog¥5Uv00 
M0G645010 
MDGU50a6 
MDG05030 
“DG05040 
mOGUSE56 
MoG¥5Y60 
mDG05070 
mp605080 
mDGY¥5090 
mDG¥510U 
40648110 
mp6U5120 
m0605130 
40695140 
M0GY5150 
MO0GYS160 
40605170 
mD6U5180 
™9695190 
m0605200 
MDG95210 
M06¥5220 
M0GU5230 
M0G05246 
“0605250 
M0GU5260 
M0G45270 
MDGO05280 
mDG6US290 
mpGU5300 
MuG05310 
m0GY¥5320 
mDGU5330 
M0G085340 
40G05350 
MDGO5360 
wO06U5570 


“MD 


O004acl 
VU0K4SOT 
VOU4I4T 
COS4ygal 
O004gC] 
9004A0T 
COduAYT 
Q00uaal 
ocdo4acl 
ooo4Bol 


O0004B2I 
COO4REI 
0004BAlr 
000u8cI 
OUO4COr 
O604c4l 
ooo4cal 
0004caAl 
OOO4CEI 
o004Da1 
#0004D4T 
000438! 
d00u0crI 
OOO4EOr 
OO004F2T 
Ooo4ese! 
OOOKuEAT 
OOo4ELT 
ooo4FOl 
OOOgF4l 
ooo4ral 
ooo4Fcl 
OOOKFET 
GOO050>1 
V0G506I1 
00050aT 
oooS50Erl 
Q0U0510f 
0005141 
0005181 
o00s5icI 
000520] 
UUU5241 


0005281 
QOn52AL 
GocS2el 
0005321 
g005341 
0005381 
00053cI 
0005401 
000544! 
0005481 


GENERATOR 


DEAD 
41¥0 
4830 
4230 
41E0 
E620 
4130 
4300 
4S4e 
oDoA 
0000 
D380 
4080 
0788 
4130 
DEAO 
4130 
2430 
4030 
E650 
0865 
cA60 
4130 
4130 
0722 
4830 
484a 
4330 
0534 
4230 
0330 
D342 
0534 
4230 
4830 
p340 
4810 
2357 
4030 
0240 
4300 
4030 
0240 
430 
00006 
2628 
c520 
4236 
2681 
4B4EF 
4584 
4230 
4880 
4B4EF 
4584 


9417 
S4EC 
905€ 
FF82 
941C 
8008 
S41E 
9214 
5620 


UV4geal 


FB94 
9046 


9S1E 
93EB 
9548 


9034 
9BDA 


OOFF 
9502 
903A 


ICDA 
9BC2 
B06A 


8034 
9CCA 
9BB2 


8026 
9CBA 
9CRB8 
9CFU 


39908 
9906 
S1A4 
99C8 
99C6 
9198 


05281 


0100 
FFBO 


9C8C 
8028 
FFE 
9CBE 
9C7C 
8026 


O6-1L77F02R04N91A13 


=0018ATI 
=0019gUy 
=0021F6I1 
=OO0041FT 
2=0018BCI 
=O004ACI 
=0018C6I 
=0016CYI 


=00004AI 
=002Q007 


=00190EI 
=0018AFI 
=001A1UT 


=002202T1 
=0020ACI 


=0019DE1 
=O00151AT 


=0021CUr 
=0020ACI 
=000558!1 


20005281 
=0021C2I 
=O020AET 


=0005281 
=0021C01 
=0021C2I 
=G021FEI 


=OG1EECI 
sO01EEEI 
=0016CUI 
=QO1EESI 
=OO01EEAI 
=VO16CUI 


=0004E2I1 


=0021C4I1 
=0005641 
=0004CEI 
=00220aT 
=0021C4I 
20005721 


538 
939 
540 
Sul 


PEOV 


EOVX 


FFOISC 


FFOS1B 
FFOSLA 


FFDS1 


FFOSCS5 


FFBFED 


FeOSC1 


( 


FAGE 


RA,»BKFM 

RO »NOMOTN 
R3,FFBEFEL 
FFRF. 

REeCRLE 
R2,E0VX 
R3,.PRINT 

PEOJ 
C'EOV’. x? ODA? 


* 

R8»SOD 
R8,CYL 
R8,RS& 
R3eWOFT 
RASEEK 
R3.FRSRwW 
R3,0 
R3,HEAO 
R5eDIRECT 
R6,R5 
R6eX'"FEP 
R3,WOFT 
R3Z,ROISc 
R2eR2 
R3ePGHNUM 
RG, DIRECTI(R2) 
TSTBOV 
R3eRS 
FFDOSC1 
R3,PGMNUM+2 
R4 DIRECT+2°(R2) 
R3,R4 
FFDSC1 
R3ePGMNUM 
RY e PGMNIINS2 
R1isIOFLAG 
FFBFED 
R3-PGMIPN 
RY ePGMIPN+2 
PEOJ 
R3.PGMOPN 
R4 ePGMOPN+2 
PEOJ 

x 


R28 
R2eX*100° 
FFOS1 

R8el 
R4seTRKDEN(RE) 
R6,SECTAB(R4) 
FFOSIA 

R6, HEAD 

RY. TRKDEN(RF) 
Re eHOTAR( RY) 


11 15:13:57 11/13/81 
BACKSPACE FILE MARK 
WAIT FOR NO MOTION 
GET THE FF BF FLAG 


DO CR/LF 
PRINT EOV 


PRINT F£0d 


GET START 
SET CYLINDER TO START 
SET SECTOR TO ZERO 


SEEK 
WAIT 


SET HEAD To ZERO 
SET UP THE SELCH 
ADDRESS 


READ 
ZERO BLOCK POINTER 


EQv ? 

YES - # NOT FOUND 

EQUAL 7? 

NO 

YES = GET THE NEXT nIGIT 


EQUAL ? 
NO 


AND STORE IT IN THE Lock 

GET THE FLAG - OUTPUT 

Yes 

NO - RESET THE INPUT NEV. FLG 


BUMP POINTER 

THIS BLOCK FINISHED 7? 

NO 

YES - INCREMENT THE SecTOR 
LOAD TRKDEN 

MAXIMUM? 

NO 

YES = INCREMENT THE Head 
LOAD TRKDEN 

MAXIMUM? 


M06U5380 
mng¥55e0 
“D0GUS400 
MD0G05416 
MOGY¥S5420 
M0G05430 
40605440 
MUGU5 450 
MD0G054%606 


42605470 
“0G05480 
MD0GU5490 
m0G05500 
méD0GY¥5510 
mnG645520 
m0G95530 
mD0G05540 
M0GU5550 
MDGUS560 
mcCGO5570 
“0605580 
mpG6¥5590 
MOGU5600 
M4DG05610 
ung¥5620 
M0GU5630 
MoGo5é640 
™0G05650 
DG05660 
4D695670 
m0G05680 
MDG605690 
MDGOS7O0 
40645710 
mpG¥5720 
MDGV¥5730 
MDGO5740 
MDS¥5750 
MDGY5760 
MOGYS770 
sDGYU57A0 
MOGY¥5790 
MOGYS560U 
MDG05810 
40605820 
™DG05830 
MDGOS84G 
MDG05650 
mpG05860 
40605870 
M0G05680 
M0G¥5890 
MOGY¥5900 
"0605910 


MMO GENERATOR 


0005u4cI 
0005501 
0005521 
0005541 
0005581 
00055cI 
QU0560I 
0005641 
0005661 
0005681 
00056al 
o0g56CI 
O0056E! 
O00570r 
0005721 
0005741 
0005761 
0005781 
oucsSTal 
ooos7cl 
o0057EI 


000580I 
0005821 
000S5a61 
0c058Al 
00058cI 
ocoss0l 
000592! 
000S596. 
O0059AI 
00059EI 
ocosa2t 
OO00S5A4T 
0005A81 
000SacI 


OU0SBOL 
oo05ay41 
000s5paI 
o005B8CI 
ooo0scol 


4330 
2631 
0788 
4300 
4840 
&330 
4300 
covO 
0000 
00-0 
0040 
0018 
0040 
004g 
0000 
o000 
0000 
6000 
G001 
0004 
0012 


0000 
2444 
4040 
4130 
2531 
4530 
2135 
c8io 
4300 
4130 
C510 
2187 
4130 
4136 
4300 
0060 
4100 
DEA 
4100 
4130 
4300 


9734 


FFT72 
SC9IA 
FF3C 
943E 


o5aor 


9C84 
S1F8 


9958 


o0D1 
9734 
91E4 
0003 


sdoc 
9418 
9110 
OSBOI 
93CC 
92EF 
93C4 
9404 
SOE4 


OIRFUL 
R3,i1 
R6eR8 
FFOS1B 
Ra, FFBFFL 
PEQV 
PBOV 
H*o! 
Hto? 
Ho!’ 
H?64* 
Heave 
H*64* 
H'64? 
Htot 
Hegt 
Ho? 
Heo? 
Heit 
Heyt 
H°18t 


15:13:57 


YES“ERROR 


INCRIMENT HEAD 
ZERQ SECTOR 


EQv ON BF ? 


11/13/81 


NO = PRINT "EQy" 
YES = PRINT "BoV" 


ROY 


ROY 


MEER AKER EERE EKER EEE EEK EA RER EKER EE ERE HEE EREREEEK EEE KEE 


IS ALWAYS OIRECTED AT OUTDEV 


THIS ROUTINE WILL WRITE "“EOv" ON THE MEDIA. 


IT CAN ONLY BE 


™ 

* 

* 

x 

EXECUTED WHEN THE POSITION OF THE MEDIA IS KNOWN, THE COMMAND * 
* 

x 

* 


EERE AE EER EES ERR EEE AREER ERE SEEKER EEE EEE R EEE EERE REET EEE 
CAN ONLY BE USED ON OUTPUT DEVICE 


* 

R4,1 
R4,EQUFLG 
R3eLODAD 
R3el 
R3,PGMOPN 
Evi 
RieX'Die 
ERRA 
R3,LODAD 
Ri ,X*O3s 
EvsMT 
R3eUPOTKXX 
R3,LOKOuT 
PEOJ 

* 
RO,NOMOTN 
RA,BKFM 
RO .NOMOTN 
R3sLOKOuT 
EOv 


SET THE €0uU 


FLAG 


LOAD OUTPUT ADDRESSES 


IS OuTPUT DEVICE LOCKED ? 


YES ERROR 


GET R1 
<3? 


YES = MAG TAPE 


ZERO OUT THE PROPER PaRT OF THE 


DIRECTORY 


ERKER EKA EEE ERE EE EEE GE EEE EEE ERE EEE EERE EEE EEE CHER EER EER EEEEAER ERS 


O6-177FO02R04M91A135 
=001C64I 592 BE 
593 AIS 
594 XAR 
=O0004CAI 595 B 
=QO21F6I 596 YSTSQV LH 
=00049CI 597 82 
=O01SA2I 598 8 
599 SECTAB oc 
600 oc 
601 oc 
602 oc 
663 pc 
504 oc 
605 oc 
606 HOTAB oc 
607 oc 
e008 oc 
609 oc 
610 oc 
611 oc 
612 pc 
613 
614 x 
615 *« EOV 
616 x 
617 * 
618 «x 
619 * 
620 «* 
621 
622 EV EQU 
623 LIS 
=00220a1 624 STH 
=0017821 625 BAL 
626 Lcs 
=O01EESI 627 CLH 
628 BNES 
629 LHI 
=O01cD4I 630 8B 
20017821 631 Eyl BAL 
632 CLHYI 
633 BLS 
29013841 634 BAL 
=0019C4I 635 BAL 
=0016C9I 636 B 
637 EvMT EQU 
=00198U7 638 BAL 
=O018A7I 639 oc 
=00198U] 649 BAL 
=001S3C4I e4t BAL 
=O016A8I 642 B 
645 
644 Oo 
645 *« REWIND 
646 * 


* 
* 
¥ 


mOGe5920 
MOG0S930 
MO0GO5940 
w0GU5980 
mO0GU59K0 
m0GO5970 
m0G 48980 
#0695990 
40696000 
mOGU6010 
m0G06020 
MDG06030 
m0G06040 
MDGY6US50 
muDG606060 
MOGO60TFO0 
m0G96080 
aDGU6090 
m0G06100 
m0G606110 
M0G06120 
¥0606130 
MOGG6240 
m0G06150 
mDG06160 
40606170 
40G06180 
mé0G06190 
40606200 
m0606210 
“DG06220 
m0606230 
M0G¥6240 
mog96250 
mOG06260 
MO0GU6270 
m0G06280 
™0606290 
MOGY6500 
mM0G96310 
MDGO6320 
m0G06330 
M0G96340 
M0G06350 
MO0GU6360 
MDGO6S7TO 
mDGVvE3g0 
MDG06390 
moG¥e4cu 
ap06069%10 
MDG06420 
40606430 
m0G06440 
m0G06450 
MDG06460 


44) GENERATOR O6-177F02ZR04491A13 


oogSC4l 
0005cé61 
G005cal 
OGO05CEI 
osasonol 
0095041 
0005061 
ooaspal 


ooo0s5pcI 
ocosoE!L 
000S5EaI 
Q00SE6I1 
OOOSEATL 
*OOO5EEL 
O905fF0I 
ooosFyl 
ooa0sFrel 
o00sFal 
O0005FcrI 
vuUgDOT 
0006041 
ULdE0 BI 


ooo60c! 
00a060rT 
0006301 
6696141 
0006181 
aoceict 


0000 
2441 
40460 
4130 
24Fr 
c500 
21354 
4130 
2308 
0000 
24Fo 
c500 
4250 
4130 
c510 
238F 
DEAO 
08BB 
2333 
DEBO 
DEAO 
4100 
DEAG 
4140 
ooce 
O8&FF 
2335 
4130 
4300 
4130 
4300 


OSC4!I 


9C40 =00220AT 
9398 =0019661 
0049 
9220 =0017FAI 
o50CI 
O04F 


938E =0019741 
9198 =0017821 
0003 


92B6 =0018AAI 


9280 =0018ACI 
9284 =0018841 
937C =00198YI 
92AD =0018B51 
9374 =001984T 
o6oc! 


9304 29019B8I 
90n8 =0016COI 
9308 =0019C4I 
9040 =0016CO0I 


647 
648 
649 
650 
651 
652 


653 | 


654 
655 
656 


‘657 


658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
6693 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
6a4 
685 
686 
687 
688 
689 
690 
691 
652 
693 
694 
695 
696 
697 
698 
699 
700 
701 


INPUTS 


OUTPUT: 


* #2 HH HH HH 


* 


( 


PAGE 


13 


15313257 


11/13/81 


THIS ROUTINE WILL REWIND THE SPECIFIED MEDIA 


R1 = THE CURRENT INDEX INTO THE INPUT BUFFER. 
IT POINTS TO THE DEVICE IDENTIFER CHARACTER, (I=0)% 


+ eee 


* 
A MAG TAPE IS REWOUND TO LOAD POINT AND THE LOCK WORD * 


Is SET. 


ON & DISC THE LOCK WORD IS SET. 


* 
* 


KERR EEE EE EKA KARE RK EERE EEE KE ERE AEE EKER KEE EERE EEK EE EEARESERKERS EE 


Rw EQu 
LIs 
STH 
BAL 
LIS 
CLHI 
BNES 
BAL 
BS 

RWX EQU 
LIS 
CLHI 


RWO CLHI 


RwOl oc 


RwDISC EQU 


RWOPDS BAL 


* 
R&,l 

Ry OUFLG 
R3e6ETCHR 
RF iS 
RO,C*I+ 
RWX 
R3eLIOAD 
RWO 


* 

RF,9O 
ROeC*O# 
QUEST 
R3.LODAn 
R1eX*O3" 
RWDISC ; 
RA, OTSaaL 
RBeRB 
Rwol 
RBeSTOP 
RA, CLEAR 
RO.eNOMOTN 
RAeREWIND 
RO.NOMOTN 
* 

RF ,RF 
RWOPDS 
R3eLOKIN 
PEOJ 
R3,LOKOUT 
PEOJ 


SET THE EOu 


FLAG 


GET A CHARACTER 
SET THE I INDICATOR 


1? 


SET THE O INDICATOR 


NO - 0 7 


NO - ERROR 


<3 7 


NO = REWIND THE DISsc 
YES + REWIND THE TAPE 


SET THE CONDITION CODE 
OUTPUT DEVICE WAS SPECIFIED 


LOCKOUT THE INPUT DEVIcE 


LOCKOUT THE OUTPUT DEVICE 


EKER AKER KKK EHH EKG EEE KEE EEK EEE EEE KS EERE EKER ERE KE EERE EEEKESK EE 


SEQNAM 


INPUTS 


eekee ee HEH HH HH 


OUTPUT: 


THIS ROUTINE WILL SET THE SEQUENCE NUMBER, 
NAME UP IN MEMORY, THIS NUMBER AND NAME wWrLl BE 
COPIED ro THE MEOIA ON A CREATE OPERATION, 


ANG 


Rl = THE CURRENT INDEX INTO THE INPUT BUFFER, 
IT POINTS To THE FIRST CHARACTER OF THE 
SEQUENCE NUMBER, 


THE SEQUENCE NUMBER AND NAME ARE STORED IN 


eee KR HE HH HHH HH 


MDG06470 
M9G064%80 
“0606490 
m0G606506 
MO0G06510 
w90G606520 
™0G06530 
MOG06540 
M0G06556 
MNGO6560 
M0G06570 
MOGO06580 
40646590 
mOGY¥6E600 
MDG06616 
MDG606620 
MDG06630 
m0G696640 
M0G606650 
6DG06660 
MDG06670 
MDGO06680 
mD606690 
mnG¥s700 
™DG06710 
40G06720 
40GU6730 
MD0G06740 
45606750 
mO0GU6760 
40696770 
MDGY678U 
“0606790 
mnG¥6sou 
MUG06810 
MDG06820 
4NG06830 
MDGY¥6849 
MOG06850 
mDG26860 
MDG06870 
M0G606880 
M0G06890 
40606900 
m0G06910 
M0G06920 
MDG06930 
MUG06940 
w0G606950 
MDG06960 
MDG06970 
MDG06980 
#0606990 
MDG07000 
“pG07010 


MMO GENERATOR 


0006201 
0006221 
0006261 
coné62al 
coo6ec!r 
0006302 
0006321 
0006341 
00063a1 
00063cI 
oc0640l 
OG0644I1 
0006461 
00064cI 
O0n64EI 
00065271 
0006561 
G006581 
00065cI 
0006601 
0006621 
oonéséé66l 
o00066al 
O0066EI 
5006721 
0006761 
o0067al 
o00é67EI 
00n6a2I 
0006861 
00068aI 
ocoé6sel 
0006921 
0006961 
00069AT 
COO6SEL 
0006A2I1 
ood6A6I 
O006AaI 
00064cI 
0006801 
«0006841 
000686I1 
OOO6BATI 
COO6BET 
O00gCOI 
0006C4I 
oocéecel 
Oocoé6CAI 
oonécel 
oo0602T 
0006061 


0722 
cé00 
4¥UUDd 
2622 
c520 
2037 
2456 
4130 
c500 
4330 
c500 
4330 
c500 
2330 
c550 
4330 
o8To 
4130 
0275 
2681 
4300 
c550 
4230 
4130 
c50C6 
4359 
c500 
4330 
c500 
4330 
c500 
4230 
c550 
8230 
4130 
c8&70 
p270 
0870 
4130 
p270 
4130 
2360 
c550 
4336 
0870 
4130 
p275 
2651 
4300 
C550 
4230 
4130 


2020 
993E 


0032 


932E 
0020 
806C 
0605 
80B4 
o02c 


n003 
80A6 


9630 
9908 


FFCE 
0003 
808E 
92F4 
nG20 
8082 
ocoD 
807A 
o02c 
8044 
002E 
8024 
0008 
8062 
92¢8 
002E 
9808 


9569 
9802 
9282 


0008 
803E 


95c8 
98a0 


FFAQ 
ocoa 
8026 
928C 


06"177FO02ZRO4MN91A13 PAGE 24 45933357 11713781 
702 « ASCIT IN THE SEQNAM BUFFER * 
703 ¥ x 
TOG KR RKRARK ERA EER ERE ES EEE EK ERS EERE ERK GY EERE KERERERERKREE REESE EEEEEE ELE 
705 SEQ XAR R2,R2 ZERO OUT 
706 SEaZ LHI RO.X*'2020° THE 
=001F681 707 STH RO,SEQNAM(R2) SEQUENCE = NAME 
708 AIS R2e2 FIELD 
709 CLHI R2,50 
710 BNES SEG2 
7il LIS R5,0 
=0019667] 712 «SEA BAL R3,GETCHR 
713 CLHI ROeX*208 
=OO0O6FCI 714 BE ZSQEST 
715 CLHI ROeX*ODe Is It cr 
=O0006FCI 716 BE ZSQEST 
717 CLHI RO,yC*e? 
718 BES SEQe2 
719 CLHI 5.3 
=0006FCI 720 BE ZSQEST 
721 LDAR R7,RO 
=001C8CI 722 BAL R3.ISHxCO 
=001F68I 723 ST8 R7eSEQNaM(RS) 
T24 Ars RSei 
2000634. 725 B SEQ1 
726 «6SFGe2 CLHI R5,.3 
=0006FCI 727 BNE ZSQEST 
=001966I1 728 Sea? BAL R3eGETCHR 
729 CLHI RO,.C* * 
sO0OGFCI 730 BE ZSQEST 
731 CLHI RO,X*Ops Is IY CR 
=Q006FCI 732 BE ZSQEST 
733 CLHI ROeC'e? 
=0006CEI 734 BE sea3s 
735 CLHI RO,.C*,? EXTENSION DELIMITER? 
=0006B61 736 BNE SEQ91 NO 
737 CLHI R58 
=Q006FCI 736 BNE ZSQEST 
=001966I1 739 BAL R3,6ETCHR GET NEXT 
740 LHI R7,C*,¢ LOAD DECIMAL POINT 
=001F81I Tal STs R7eSEQNaAM+25 STORE 
Tu2 LDAR R7,RO SAVE RO 
=001C8cCI 743 BAL R3-ISHxcO 
=001F82r 7TKY ST8 R7+SEQNAM+26 STORE 
79019661 TH5 BAL R3.GETCHR 
746 B seag9 
747 SFQ91 CLHI R5,6 
=0006FCI 748 SE ZS@EST 
Tag LDAR R7,RO 
=001C8&cI 750 BAL R3-ISHxco 
=O001F6ar 751 ST3 R7eSEQNaM(RS) 
752 AIS R5.1 
=00066FI 753 8 SEG? 
754 SEGSS CLHI R5,.8 
=0006FCI 755 BNE ZSQEST 
=001966! 756 SEa2A BAL R2,.SETCHR 


) 


Mog07020 
mpg07030 
moGe70480 
mDGO7050 
mD607060 
nOGYTU7O 
mp607080 
MOGO7T090 
aDGO710G 
mOGO7110 
49607120 
m0607130 
mog07140 
MO0607250 
mMOGO7160 
MOGO07170 
mMDGO7180 
“0G07190 
mMOGOT200 
MNG072106 
MDGE7220 
MCG07230 
MOGO7240 
MOGU7T250 
MDGO7260 
mO0GO07270 
moGY7280 
m0GO7T290 
mDG07300 
40507310 
MOG07520 
M0GO7330 
M0G07340 
M0G07350 
MDGO7360 
MOGOT3706 
#0G07380 
MO0GO7390 
MOGO74O0 
MOG¥7410 
“O0GO07420 
m0GO7430 
MOGUT4YO 
MOGY7459 
MOGO7460 
M0G6074%70 
mMOGO7480 
mD607490 
MDSGY¥7500 
MbG97520 
mOGO7920 
MDGU7536 
MDGO7549 
mOGO7S50 
MO697560 


AMO GENES ATOR 


coNeDAI C506 00D 
OOD6DEI 4330 FSBA 
9436621 C559 nu12 
QO06F6I 2338 
COG6E81 C550 0032 
QOO6ECI 2338 
O006FEI 205 9876 
O006F2I 2651 
GCOO6FSI 220F 
CON6F6I C850 CO1E 
OOO6FAL 2206 
OOOEFCI cavo 2920 
0007001 0722 
YOO702T 4UU2 9862 
O0G7TO6I 2622 
Oon708I C520 nose 
O0070cI 2035 
O0070F1 4300 9262 
0000 o712I 
cou712I 2450 
0007141 4130 924F 


06-177F 02R0491A13 


=00009CI 


=O001F681 


=001F68I 


=001974] 


=001966I1 


757 
758 
789 
765 
761 


SET1 §Te 


SFTGAP LHI 
ZSQEST LHI 


Z2SQZ STH 


( 


PAGE 


ROeX*0De 
REDTTY 

R5.18 

SETGAP 

R5.50 

ZSQEST 
RO«SEQNAM(RS) 
x5e1 

SEQ2A 

R5,50 

SET1 

ROeX* 20008 
R2.R2 
ROeSEQNAM(R2) 
R22 

R2,50 

ZSaz 

QUEST 


15 


15513357 
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THIS LEAVES A GAP IN THE TABLE 


FAKES AER ERE EEK ERK EKER EERE EEE Ge EEEEAE EEK EREEEKREREKEEKREEKEEY EX 


COP Y 


MIMO 
MIDO « 


DETECTED, 


een HK HR HKH RHR HK HEH HHH RH HH HHH HH HH 


KARE REA ERE ERE REE ERK EEE REE EEE EEE ERK ERE EERE KE EER EER EEE ERY 


* 

caPY EQuU 
LIs 

CPYMOR BAL 


THE TRANSFER BEGING. 


THIS ROUTINE IS USED TO COPY ONE MEDIA TO ANOTHER. 
TO THIS PROGRAM INTERRIGATES *"INDEV® AND "QUTDEV" TO DETERMINE 
WHICH OF THE FOUR (4) INTERNAL ROUTINES WILL BE USED, THE 

INTERNAL ROUTINES ARE? 


OIDO = DISC INpuT / DISC oUTPUT 
DIMO - DISC INPUT / MAG TAPE OUTPUT 
MAG TAPE INPUT / MAG TAPE OUTPUT 


MAG TAPF INPUT / DISC OUTPUT 


INPUT © R1 = AN INDEX INTO THE INPUT BUFFER. 


THE ENTRY 


CONTROL COME TO THe TEST FROM THE OPTION INPUT ROUTING 


It PoINTs 


To THE FIRST CHARACTER To BE USED As THE 


THREE (3) DIGIT SEQUENCE NUMBER, 


* 
R5,0 
R3,GETCHR 


THE ROUTINE FIRST CHECKS TO SEE IF THE CONDITION saND POSITION 
OF BOTH OUTPUT ANn INPUT DEVICES Is KNOWN, THIS IS NONE FROM 
THE HISTORY OF THF DEVICE MAINTAINED IN MEMORY, 
CONDITION IS FOUND AN ERROR IS PRINTED. IF NO ERROR IS FOUND 
IF THE OUTPUT DEVICE IS NOT AT EOV THE 
COPY WILL START AT THE CURRENT POSITION oF THE MEDIA. THE cCoPY 
CONTINUES UNTIL THE NUMBER SPECIFIED IS FOUND OR UNTIL EOV IS 


IF aN UNKNOWN 


WHEN THE JOB IS COMPLETE "EOJ" IS PRINTED ON THE CONSOLE> 


SET CHARACTER COUNT To ZERO 
GET A CHARACTER 


%* 
* 
* 
x 
*x 
x 
* 
* 
* 
* 
* 
= 
* 
x 
* 
x 
* 
* 
x 
* 
* 
Ps 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


MOUGO7970 
mDG07580 
40607590 
m0G07600 
MUGO7610 
MDGO7520 
69647630 
MOGO7649 
MDG607650 
MOGO7660 
“OGO76706 
“40697680 
MDG07690 
MDGY7700 
MDG077120 
MNGO7720 
M0GO07730 
¥OG¥7740 
M0G07750 
40607760 
MDS077706 
m0607780 
MDG07790 
40G07800 
mO0G07810 
mDGO7820 
MDGO7830 
M06076840 
MOGO7850 
~DG6O07860 
M0G07870 
MDGO78680 
™DG07890 
™D607900 
M0G07910 
MO0GO07920 
MDGOT930 
“0DG0794u0 
MCGO7950 
4DGO07960 
MOG07970 
M0607980 
4DG07990 
mDGO8000 
“™DGO08020 
M0G08020 
m0G08030 
mDG08040 
mDG08050 
“™DG08060 
MDG08070 
M0G608080 
™DG08090 
MUGVU8100 
MDG%8110 


MMOD GENERATOR 


c007181 
coo71CcI 
0007201 
0007241 
0007281 
00072A1 
O0072FI 
0007321 
0007361 
Cos73al 
00073cI 
od0740I 
OUO7HKT 
o0074¢B81 
ooO74CI 
coo75or 
co07S4! 
0007581 
VOO7S5cI 
ovo76ol 
COOTE4I 
0007681 
vooreci 
o00770I 
0007741 
coo77alr 
o0077cI 
0007801 
000784. 
ooo7EesI 
00078CI 
O0O78EI 


0007921 
0007961 
o0079AL 
o0079CI 
OUOPADI 


OOO7AYT 
O00T7TABI 
ooo7ACI 
O007AET 
9090782 
o00786I1 
o007BAT 


OCO7REI 
coa7cal 
ooa7cel 
con7cal 


coo7cc! 
QOO07CEL 


c500 
4330 
c550 
8220 
0a70 
C576 
4330 
4130 
D275 
2651 
4300 
c550 
4230 
clo 
c510 
4230 
4139 
C810 
4300 
c550 
4230 
D330 
C530 
4230 
4130 
c500 
4230 
c8oo0 
4O0Uu0 
p200 
2453 
4300 
0000 
4130 
4SA0 
2135 
caoo 
4300 
00UDg 
4136 
c510 
2189 
4130 
c510 
4280 
43UQ 
0006 
4130 
c510 
2183 
4300 
0000 
2444 
4040 


0000 
8020 =0007401 
0003 
924c 30019741 


OG4F 
802€ =0007601 


9556 =001C8CI 
9A86 =0021C01 
FFD4Y =000714I1 
0003 
922c =001974I 
1EEcI 
FFFF 
BO3E =0007921 


90A2 =0017FAI 
o0EB 
9574 =001CD4I 
ooo1 


920C -0019741 
9A54 =0021CUI 
0045 

9200 =0019741 
91EE =0019661 
0056 

$S1F4 =001974I 
3930 

9A38 20021C9UI 
9A36 =0021C21 


FF82 =000714I1 
07921 

8FEC 20017821 
9748 =OO1LEE2I 


4435 
946c =001C1¥7 
OTAGT 
9052 =0017Fal 
0003 


aFoo =0017821 
0003 
82B2 =000AECI 
64eaC =O00C4AT 
O7BEI 
aFcU =001782I 
0003 


8138 =000904T 
O7CCI 


9038 =00220a7 


812 
813 
814 
815 
815 
817 
818 
819 
820 
821 
822 
823 
8e4 
825 
826 
827 
628 
829 
830 
831 
832 
833 
Bzy 
835 
836 
837 
838 
839 
840 
B41 
840 
643 
844 
845 
B46 
847 
848 
849 
850 
851 
852 
853 
854 
8s 

856 
857 
&58 
859 
860 
861 
862 
863 
864 
865 
866 


U6=177FO2R04M91413 


COPYA 


CoPYEV 


coPY1 


cnPY2 


MTIN 


PAGE 


RO yX*ODe 
COPYA 
R503 
QUEST 
R7,RO 
R7,C*Oe 
COPYEV 
R3,ISkxcro 
R7 ePGMNUM(R5) 
R5,1 
CPYMOR 
R5,3 
QUEST 
R1~ePGMIPN 
RigX*FFEF? 
copyl 
R3,LIDAD 
RisX*EBe 
ERRA 

R51 
QUEST 
R3,.PGMNUM 
R3eC°E?® 
Quest 
R3,6ETCHR 
Ro,C've 
QUEST 

RO, X*30x08 
RO,PGMNUM 
RO»PGMNUM+2 
R5,3 
CpYAOR 


* 

R3+LODan 
RAs INDE V+2 
copy2 
RO,.C*o5* 
ERROR 


* 
R3eLIOAn 
Ri,X*O3¢e 
MTIN 
R3,LO0AD 
RL eX*OFe 
DIMO0 
Dro00 

x 
R3eLOODan 
R1ieX'03s 
MIMO 
MIDO 

* 


R4,1 
R4 EQJFLG 


15213357 11/13781 
CR 
YES 
TO MANY CHAR ? 
YES 
NO 
Is Iv 0? 
YES 
VALID HEX CHARACTER 7 
Yes 
ENOUGH CHAR? 
NO 
GET THE INDEV LOCK 
=-1 7 


THE INDEV POSITION KNOWN 
YES - THEN IrNDEV NOT POSITIONED 


PRINT ERROR 


Is It Vv ? 
NO 


GET THE OUTDEV ADDRESS 
Is OUTDEV = INDEV ? 

NO - CONTINUE 

YES «- ERROR 


GET THE INPUT DEVICE rTyPE 
MAG TAPE ? 

YEs 

GET THE OUTPUT DEVICE TYPE 
MAG TAPE 7? 


THEN DISC INPUT = MAG TAPE OUTPUT 


NO THEN OIsc TO OISc 
MAG TAPE INPUT 


GET THE OUTPUT DEVICE TYPE 
MAG TAPE TO MAG TAPE 
MAG TAPE To DISc 


m0606120 
40608130 
MDGO8140 
“40608150 
™DG08160 
M0608170 
m0508180 
40698190 
mpG6¥a200 
mD608219 
40608220 
MOGO8230 
MDG4¥8240 
MOGG8250 
“0608260 
MDGO08270 
MOGO08280 
m0608290 
MOG¥Aa300 
40608310 
m0G08320 
mMDGVA330 
MDNGOB3G0 
m0G08350 
#DG98360 
™D608370 
40G68380 
40608390 
MoG¥e4o00 
wDG¥8410 
MDGO08420 
MO0GU8430 
40608440 
mM0G¥a480 
M0G6"8460 
MDGO08470 
MD0G084e0 
MDGY¥6490 
#D608500 
m0608510 
NOG OBS29 
M0G08530 
HD60a590 
mD0608550 
mDG606560 
MOGO8S570 
“0608580 
MDG¥8590 
#0608600 
MOGO08610 
mMOGOQ8620 
MDG08630 
MoOGCé640 
#0698650 
MOGO08660 


MMO 


oon.702aI 
0007N6I 
Ovd7BAL 
Oo 7DE!1 
O00 7E2T 
OOU7TESGI 
QOU7TEAIL 
ooOo7EETL 
o007FOI 
OOO7F4] 
ooo07FEel 
OOO7FAI 
QOO7FEI 
VUUR02T 
900806! 
COdR0AI 
VOOR80EI 
oon81el 
0008141 
c09818eI 
*00081CI 
000820T 
0008221 
6098261 
00082al 
00n082cEI 
00083271 
000836! 


O00RZAT 
C30a3eE!I 
0dd840r 
ooos#el 
V00R44uT 
d0084s1 


O0Ug4AI 
oonB4El 
0008501 
0398521 
0008561 
OouBdsAl 
CO0sS5EI 


0008621 
000866! 
ooca6aAl 


000gé6cI 
o0na7ol 
vV0UaT2I 
cons7é6l 


* MAG TAPE IN ~ MAG TAPE OUT 


GENERATOR O06=177F02RO4M91A13 
867 
868 * 
4130 9024 =0017FAI Beg 
F650 978F =001F681 870 
£660 978D =001F981 871 
£610 93098 =00087Al 872 
4130 3060 =0015461 873 
4130 alicc =0009B61 874 
4130 e8F94 =001782I 875 
SDA1 876 
C310 9020 877 
2335 878 
C810 GOED 879 
4300 9496 =001CD4I 880 
£650 9766 =001F68I 881 WwWTrMIMO 
E660 9795 =U01F9R1 882 
4130 aD32 =00153cI 8a3 
4130 aFEC =0017FAI 884 MTMONX 
E650 978A =001F9CI 885 
0865 BBS 
4830 9A00 =0022181 887 
4330 801E =00083AI 868 
CA60 OOFF 889 
2731 690 
4030 99F2 =0022181 891 
C830 oOFF 892 
4030 99FC =00221AT 893 MIMO2x 
£610 8150 =000982I1 894 
4130 28019 =001546I1 695 
4300 8028 =000862I 896 
0000 083aI 897 MIMOLB 
4830 9908 =0022161 898 
2336 899 
OAG3 900 
6711 901 
4010 99ce =002216] 902 
220F 903 
0000 O84Al 964 MIMONL 
F650 974uF =O01F9CI 905 
0865 906 
2664 907 
F610 a02C =000882T 908 
4130 gCEC =001546I 909 
c81lo 9000 919 MIMOER 
4390 9472 =001CD4I 911 
912 * 
0000 08621 913 MIMO1l 
4130 8sFic =00178aI 914 
£650 9732 =001F9CI 915 
0a65 916 
917 * 
4830 o9AA =002214T1 918 
CAG 919 
4130 eCcé =00153cI 920 
4300 FF9IO0 =00080AI 921 


BAL 
LDay 
LOAT 
LD«al 
BAL 
BAL 
BAL 
SSR 
THI 
BZs 
LHI 
B 
LDA 
LOal 
BAL 
BAL 
LDAI 
LOAR 
LH 
BZ 
AAI 
SIs 
STH 
LHI 
STH 


( 


PAGE 


R3,LIDAN 
R5,PO0B 
R6.PDB+5)1 
R1eMIMOERK 
R3.READPA 
R3,.41STat 
R3,LODAN 
RA,R1 
R1eX*20¢ 
WTMIMO 
R1eX"EOe 
ERRA 
R5-P08 
R6,P0B451 
R3,WRTpaA 
R3,LIDAn 
R5,WRTBUE 
R6eR5 
R3.NUMBLK 
MIMOLB 
R6eX*FFs 
R3,1 
R3eNUMBLK 
R3 X*FFs 
R3,CURBLK 
R1,4IDOFR 
R3,READPB 
MIrmM01 

* 
R3eLSTALK 
MIMONL 
R6,R3 
R1ieR1 
R1i-sLSTSLK 
MIMO2X 


x 
R5,WRTBUE 
R6eRS- 
R604 
RieMIMOFN 
R3,READPB 
R1ieX*O0s 
ERRA 


* 
R3,LODAnN 
R5,WRIBLF 
R6eRS 


R3,CURBLK 
R6,R3 
R3,WRTPA 
MIMONX 
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LOAD THE INPUT DEVICE aDDRESSES 
SET UP THE STORAGE AREA 


* ROy 
SET FILE MARK RETURN 
GO READ 


LOAD THE OUTPUT DEVICE ADORESSES 
BOT 7 


NO 

YES 

ERROR 

SET UP THE ADDRESS 

* ROG 
GO WRITE THE POB 

LOAD THE INPUT DEVICE ADDRESSES 
SET UP THE 

BUFFER TO READ 

GET THE NUMSER OF BLOcKS 


DECREMENT THE COUNT 


SET THE CURRENT SLOCK 
SIZE 
SET FILE MARK RETURN 


LAST BLOCK 
NO LAST BLOCK 


NO LAST BLOCK 
THERE MUST BE A FILE wARK 
OR ELSE ERROR 


SET FM RETURN 
FM BEFORE END OF COUNT OR 
END OF COUNT BEFORE Fm 


GET THE OUTPUT DEVICE AODRESSES 
SET UP THE 
BUFFER VALUES 


MDG08670 
™DGG86B0 
MDG08690 
4DG6V¥8700 
“0GU8740 
M0G08720 
M0608730 
MDGU8740 
MDGY8750 
40608760 
40608770 
“DGG8780 
MDG08790 
wMoGY¥sson 
M0GY¥8810 
MUGY8820 
M0GY8830 
MDGV8B40 
moGUa8650 
MUG08860 
40608870 
MO0G08880 
MDG08890 
406083900 
M0G¥8910 
m0G08920 
*D0GV8930 
MOGO089K0 
MOGVE950 
MDG08960 
MUGO8970 
“DGU8980 
MLUG08990 
MDG609U00 
“0609070 
m5 549000 
40G09030 
MDGO9040 
MoGu¥9050 
49G609060 
m0609076 
v0609066 
MOGYUSU90 
MDG0910G6 
M0G6¥09110 
“pG6091256 
“DG09130 
MDGU9140 
MO0G¥9150 
40609160 
MUGUILTU 
“0609180 
M0G09190 
mDGv¥9200 
M0G09210 


MMO 


OObB7AL 
GU0S7EI 


O0DRADT 
oonses6l 
000868aL 
00NBBEI 
000a9aT 
0008961 
oonsg9al 


O00B9FI 
O0O8pA2T 
VOUSAGI 
OOnsAAI 
OO0BAEI 
0008R2I 
O0GgBEI 
0d0aBAI 
Oo0sBRFI 
d00aC2I 
000aCEI 
O000gcal 
oo0scel 
o00aDNI 
00GaD4I 
vOCapaI 
000eNcI 
OOOBEDI 
GOOBESI 
O00gaFral 


0008EcI 
OU0SFOI 
oo0aF4l 
o0008FBl 


o00aFrc! 
vU0g007 


0009047 
000906! 
00090A1 
O0090FT 
O0U912T 
oco9iel 
OO00S1AT 
GOG91EI 
o0092eaTt 
0009261 
onng2al 


OUD92EI 
00093aI 
0009361 


GENE 


RATOR O06+177FO02R04M91415 


OB7Al 

00EB 

9452 =001CD4I 
U882T 

REFC 70017821 
9021 =0018ABI 
90F2 =0019801 
9019 =0018ABI 
9¥FA =0019801 
9013 =0018ADI 
9062 =0019801 
O89EI 

BF58 =0017FAI 
9602 -001F68I 
96F1 =001F 981 
803E =0008ECI 
aC94 =0015461 
BFF? =0018ADI 
9Uce =001980T 
9902 =0021C0L 
96A6 =001F68I 
FECC =0007921 
96F8 =0021C2I 
969C =001F6qI 


FEBE =000792I1 
gaFs =0021C0I 
9610 =O001FECI 
9862 =0021C2I 
969A =001EEEI 
90E8 =0019D0I 
abpo4a =0016CUI 
OBECI 

9090 =001960I1 
@FB3 =O018ATI 
9088 =00198aI 
90B8C =0019Bal 
9006 =001900I1 
F898 =00049C] 
oso4l 


9900 =00220aA1 
BEEC =OO17FAI 
9656 =001Fé681 
9685 =001F9BI 
FF60 =00087aAI 
aC28 =001546! 
2994 =0009BSI 
8008 =00092¢E1 
98AA =0021D4] 
S7UE =00103CI 
Q92EI 

98€2 =0022141 
BECK =U01L7FAI 
$662 =GO1F9crI 


922 
923 
924 
925 
926 
927 
928 
329 
930 
931 
932 
933 
934 


MIMOFM 


MIMOEN 


CoPMTI 


MIMOEV 


mMrDO 


MTO011 


x 
R1»X*EBs 
ERRA 

* 


R3eLODAn 
RA WE 
RO»eNOMOTN 
RAWFM 

RO eNOMOTN 
RA:+BKSpP 
ROeNOMOTN 
* 


R3eLIDAD 
R5—P0B 
R6-.PDB+51 
R1,MIMOFV 
R3,READPB 
RAeBKSP 
RO.NOMOTN 
R3._.PGMuuM 
R3,P08 
COPY1 


R3+PGMNUMS 


R4ePOS8es 
R35eR4 
copyi 
R3,PGMNUM 
R3ePGMIPN 


R3ePGMNUMS2 
R3sPGMIPNe2 


R3,Z2SE9 
PEOQJ 

x 

RO eNOMOTN 
RA+BKFEM 
RO ,NOMOTN 
R3,LOKIN 
R3eZSEQ 
PEQV 

x 

RG,i 
R4,EQUFLE 
R3eLIDAD 
R5.P08 
R6—ePDB+51 
R1eMID0FM 
R3,READPB 
R3,MISTRT 
R3<¢MID011 
R3sCPYFLG 
CREDIS 

« 
R&eCOPSFEC 
R3,LIOAD 
R5- WRT BUF 


PAGE 


4 
* 
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READ A FILE MARK WHEN EXPECTING Por 


ERROR 


READ A FILE MARK QURING AN INPUT RE 


WRITE A FILE MARK ON OUTDEV 
WRITE A FILE MARK 


WRITE & SECOND FILE Mark 
WAIT 
BACK SPACE OVER IT 


GET THE INDEV ADDRESSES 

SET UP THE STORAGE AREA 

* R04 
SET EOV RETURN 

GO READ 


GET THE CoPY VALUE 
FIRST TWO OIGITS = 7 
NO = DO ANOTHER 

YES 

THIRD DIGIT = 7? 

NO - 00 ANOTHER 
UPOATE 

THE INDEV 

LOCKOUT 

YES 


WAIT 


LOCK THE INPUT DEVICE 


PRINT FOV = EQJ 


LOAD THE INPUT DEVICE aDDRESSES 

* ROW 
SET THE FILE MARK RETURN 

GO READ 

SET THE COPY FLAS 

GO TO THE CREATE ROUTINE TO WRITE 


SAVE THE SECTOR NUMBER 
LOAD THE INPUT DEVICE ADDRESSES 


mp609220 
M0G09230 
MOG992490 
mDG09250 
mOG¥9260 
m0609270 
m0609280 
40609290 
M5G609300 
“0609310 
MOGO09320 
MNGO9530 
40G¥9540 
moGg¥9550 
MDGY9360 
MD0G609370 
MOGU93a80 
mogl¥9390 
MoG¥9400 
m0G699410 
MOGU9420 
MOGOS430 
moGglesso 
Mo649450 
m0G09460 
M0699470 
M0GU94%950 
MDGY9490 
mpg ¥9500 
m0G699510 
m0G09520 
m0G¥9530 
moGO9Su0 
m0609550 
mp¢v¥9560 
MOGO9570 
m0G09580 
m0G609590 
MOGY¥96U0 
M0G609610 
MO0G09620 
m0G09630 
0629640 
M™0G649650 
mDG¥9660 
MDG09670 
MDG99680 
M0G09690 
MGG09700 
mpDG6v9710 
“MDG09720 
MDGOS730 
MDGY97R0 
“0609750 
MOGU976O 


MMD 


ONNSZAT 
GOU9ZCI 
gdog4ar 
*000944T 
oungustl 
OCUgKAl 
oong4ET 
OGO95aT 
Goe79s6l 
00095AI 
oo195el 


00u96aI 
0009661 
0009681 
oo096Ar 
00096Ccl 
ooc9701 


0069721 
o0n97el 
0009781 
o0g97al 
QO097FI 
oon9821 
0009861 


O0098AT 
OOOSSEI 
oons92Tr 
000994T 
00u998T 
00099aAT 
O0D9SEI 
O0U9API 


000sAGI 
QOOSAAT 
OOOSAET 
o00982T 


GENERATOR 

0865 

4830 98n8 =002218I 
4330 s01€ =000962I1 
CA60D OOFF 

2731 

4030 98CA =0022181 
C830 AUFF 

4030 s8cH =00221AI 
F61lc e028 =000982) 
4130 aBea =001546!1 
4300 8028 =00098AI 
0000 09621 

4830 98RU =0022161 
2336 

OA63 

o711 

4010 9806 =0022161 
220F 

0060 99721 

£650 9626 =O01F9CI 
0865 

2664 

£610 8028 =0009A6I 
4130 gBc4y =001546I1 
C810 00D0 

4340 934n =O01C04I1 
9000 o98al 

4130 aDF4 =001782T 
£650 960A =001F9CI 
0865 

4830 9882 =002214I 
0A63 

4866 9876 =002214T 
413¢ 8804 =0012761 
4300 FFaa =00092FI1 
0000 O87aAr 

0000 o9A6I1 

4130 8008 =0017821 
4880 9866 =0022141 
4130 87A6 =0011586I1 
4300 FEES =0008971 


977 
976 
979 
980 
981 
982 
9a 
984 
965 
986 
9a7 


06-177F0U2R04M91013 


“1DO2X 


MIDOLB 


MIDONL 
MTOOER 


* 
MmrOO1 


MIDOFM 
MYOOEN 


R6«R5 
R3eNUMQ) K 
MIDOLRB 
RoeX*FFr 
R3,1 
R3eNUMBL K 
R3eX*FFe 
R3.CURBLK 
R1.MID0ER 
R3,READSB 
MIDOL 

* 
R3eLSTBLx 
MIDONL 
R6,R3 
RieRi 
RistSTBLx 
MIDO2x 


* 
R5.WRIBUF 
R6.R5 
R604 
RieMIDOEN 
R3,READPB 
R1X*D0os 
ERRA 


* 
R3,LODAH 
R5, WRTSUE 
R6sRS 
R3,CURBLK 
RGeRS 
R8&,COPSFC 
R3,AVAILO 
MI0011 
MIMOFM 

* 
R3,LO0aAN 
Ra8,COPSFc 
R3,DTRDON 
COPAMTI 
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SET UP THE gQUFFER 
ADDRESSES 


DECREMENT THE BLOCK COUNT 


SET THE FM RETURN 
GO READ 


LAST BLOCK 

GET THE SIZE 

= ZERO - NO BLOCK 
SET THE LAST SIZE 


SET UP TO READ 

BUT MUST GET FILE MARK AS THE COUNT 
IS EXHAUSTED 

SET FM RETURN - ERROR IF NO Fm 


FILE MARK BEFORE TRANSFER COMPLETE 
OR NO FM WHEN COUNT EXHAUSTED 


LOAD THE OUTPUT DEVICE ADDRESSES 
SET UP THE WRITE @UFFFR 
VALUES 


RETRIEVE THE SECTOR 

GO WRITE To DISC 

GO READ ANOTHER RECORD 

READ A FILE MARK WHEN EXPECTING Ppa 


LOAD THE OUTDEV ADDRESSES 
GET THE SECTOR NUMBER 
WRITE EQV on OSC 


KEKE SEEKER EKEERE RE SKE KEE EEE EEE REE EERE KER EKER EEEERAE EERE ERE EY 


* 
* MIS TRT 
* 

* 

* 

* 

* THE "LOW" 

* 

* INPUTS 

* 

* OUTPUT? 
x 


R3 = 


THE LOCATION “NUMBLK" = 
THE LOCATION "LSYBLK" = 


THIS ROUTINE WILL CALCULATE THE NUMBER OF FULL BLOCKS? 
LENGTH OF THE LAST ALOCK TO BE TRANSFERRED, 
AND "HIGH" ANORESSES CONTAINED YN THE POR. 


AND THE 
It IS CALCULATED FROM 


RETURN ADDRESS 


THE NUMBER OF BLOCKS TO COPIED 
THE LENGTH OF THE LAST BLOCK, 


ee tHe HoH HH 


* 
* 
x 


MNG09770 


“OGU9780 
4UG609790 
"0609800 
“0609816 
MDGV9820 
%LS09830 
MOGU9S40 
M0G09850 
mMOGU9860 
40609870 
mMnG09880 
vDGY¥9890 
4603900 
MIJG609910 
MDG09920 
MoGv¥99z0 
M0G09940 
MOGO9950 
MDGU9960 
MDG09970 
mMoG99980 
“DG09990 
MDG1ULD0 
"06160010 
mDG1i9V20 
"0610030 
mDG100486 
mDG19950 
™0610060 
mDG10070 
m0610080 
MNG10090 
69610106 
MUG10110 
M0G619120 
“0G10130 
“0610149 
mMDG610150 
mDG10160 
MUG10170 
0610180 
mDG610199 
m0G10200 
M0610210 
MOG10220 
m0610230 
MDG10240 
m0G10250 
mO0G10260 
MDG10270 
m5610280 
MO0G10290 
mO0G10300 
mDG10510 


MMD GENERATOR 06-177FG2RC04M91A13 


Q009R6EI 
vudugsBal 
00096EI 
cooscel 
O009C4T 
oooscal 
ooo9cclr 
OOOSCEL 
oon9NeT 
oocsn4l 
000908. 
Go090aT 
0009DCI 
Q009F0T 
O6C9E4I 
CONJ9EeI 
ooagEal 
0009ECcI 
o0c9FOT 
0009F aI 
o009F SI 
oocorstr 
OO09FAI 
o009FCI 
O00A00r 


OoOoAG4I 
oeoadel 
OO0A0AT 
Q00A0CT 
Geoadedr 
O0CAL1AT 
oo00A16I1 
000a1aI 
oocaic! 
OOOA1ET 
OGGA22TI 
OCOA24I 
oooA2aI 
OdoAzAT 
G00a2crI 


000AS0! 
eoaszeal 
000434! 
O0GasaI 
O00AZCiI 
GoGaAuOT 
OGoa4¢al 
O00A44T 
GOoa4al 


0000 
5030 
0350 
D360 
0556 
4280 
4330 
0B56 
C830 
0835 
C530 
2132 
2431 
4030 
D350 
1158 
D330 
0653 
D360 
1168 
0330 
0663 
2761 
0B65 
4060 
4300 
0000 
0865 
C560 
2132 
2461 
4060 
0350 
1158 
0330 


09861 


9812 
SSBE 
95BD 


803C 
8038 


0100 
0000 
9836 
9596 
9591 
95860 


95868 


9818 
802C 


OAO4ST 


0000 


9804 
9564 


955F 


0653 | 


0360 
1168 
0330 
0663 
0B65 
4060 
0000 
2451 
0766 
DESO 
030 
4130 
0860 
1164 
D300 
4130 


9558 


9556 


97E8 


QA30I 


8033 
952D 
924C 


9522 
3240 


=0021CCI 
=OOLF7CI 
sO01F7FI 


=000A04T 
=O00A04T 


=0022161 
=V01F7al 


=001F7BI 
=Q01F7D1 


=O01F7EI 


=002216I 
=Q00A301 


=0022161 
=O01F7AI 


=001F 781 
=001F7DI 


=O001F7EI 


=0022181 


=000A68I 
=OC1F69I 
=061C&c!I 


=O01F6AI 
=001C8cI 


1032 
1033 
1034 
1035 
1036 
1437 
1938 
1039 
1040 
lou 
lowe 
1043 
1044 
1045 
louse 
1047 
1048 
1049 
1650 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1959 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1970 
1071 
1072 
1073 
1074 
1075 
1076 
1677 
1078 
1979 
1080 
1661 
1082 
1083 
1084 
10a5 
1686 


* 
* 
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x 
* 


HARE EKKE AKER ERE EK E EERE EK CARE ESE TERE EESEEREEEK EKER EREEER KSEE 


MISTRT 


LOHIK1 


LOFRHI 


LOHIK2 


UPOSPY 


EQU 
STA 


* 
R3.eMISTRN 
R5-P06420 
R6ePDB403 
R5eR6 
LOFRHI 
LOFRHI 
R5,R6 
R3eX'100°% 
R3,.R5 
R3eX* 00 
LOHIK1 
R3ei 
R3,LSTBLK 
R5.PD8+18 
R58 
R3,P0B4193 
R5,R3 


R6ePDB+01 
RE-A 


i ad 


R3.PDB+92 
R6,R3 
R6el 
R6.R5 
R6&eNUMBLK 
UPOSPY 

* 

R6.RS 
R&eX*00° 
LOHIK2 
R622 

R6é LSTBLK 
R5,.P08418 
R5.8 
R3,P08+19 
R5SeR3S 

R6 ePDB+21 
R6,5 
R3-PO084e2 
RG6eRS 
R6eRS 
R6eNUMBLK 
* 

R5e1 
R6.R6 
R5<+OSPCHD+e1 
RO+POB41 
R3,ISHxcO 
REeRO 

RG —4 
RO,POB+2 
R3eISHxCO 


SAVE RETURN 

GET THE LOW ORDER TWO DIGITS OF 
GET THE LOW ORDER TWO DIGITS OF 
COMPARE LOW AND HIGH 

IS Low < HIGH 7 = YES 


NO - THE SUB LOW FROM x‘'100° 
SUB LOW (R5) FROM HIGH (R3} 
DIFF, = 0 ? 

NO 


YES ~ THEN SET 1 

SAVE BLOCK LENGTH 

GET THE HIGH ORDER THREE DIGITS OF 
THE Low ADDRESS 


R5 = HIGH ORDER LOW ADDRESS 
GET THE HIGH ORDER THREE DIGITS OF 


oe 
THE HIGH AGGRESS 


SUBTRACT 1 FOR THE BORROW USED ABOVE 
SUBTRACT LOW (R5) FROM HIGH (R6) 


STOR THE # OF FULL BLOCKS TO BE TRANS 


SUBTRACT LOW (RS) FROM HIGH (R6) 
DIFFERENCE = 0 ? 
NO 


YES ~ THEN SET 1 
SAVE THE LENGTH 
GET THE HIGH ORDER THREE DIGITS OF 
THE LOW ADDRESS 


RS = HIGH ORDER OF LOW ADDRESS 
GET THE HIGH ORDER THREE OIGITS OF 
THE HIGH ADDRESS 


STORE THE NUMBER OF FULL 
LOAD DISPLAY 
ADDRESS 


INC MODE 


m0G10320 
“0610330 
MDG10340 
MDG10350 
m0G10560 
06103706 
MDG10380 
M0G10390 
“0610400 
M0G10410 
™0G104%20 
MDG104%30 
MDG104%40 
MD0G10450 
MDG6104%60 
MDG104%70 
M0610480 
MDG610490 
™D610500 
m™0G610510 
mDG610520 
“0615530 
MDGLGSHO 
“DG10550 
mDG10560 
MDG10570 
mDG610580 
MDG610590 
“DG610600 
mDG10610 
™D610620 
4D610630 
M0G10640 
MDG10650 
MDG610660 
MDG10670 
MDG10680 
™0619690 
M0G10700 
MO0610710 
mDE10720 
m0619730 
MDG10740 
"0610750 
™0G619760 
MOG10770 
MDG10780 
M0G10790 
“0610800 
MDG10810 
m0G10620 
M0610830 
M0G10640 
m0G619850 
mDG10860 


MMOD GENERATOR 06-177F02R04N91A13 


n0034E1 
000z501 
0603541 
0003561 
0003541 
a9035e! 
0003601 
0003641 
0003681 
06936aI 
00036E!I 
6303721 
G003741 
C6G637a1 
0u037cI 
0603801 
000382 
6093861 
OCG38Al 
OOG38ET 
0003921 
000396! 
0093981 
00039CI 
00039E1 
0G03A2T 
o0n3A6l 
0003A8! 
OGQ3ACI 


0093B801 


0003841 
00038a1 
00038c! 
ooc3col 
oo0sCc4I 
o003cal 


0000 
2430 
4030 
2441 
4040 
4130 
24 AF 
c500 
4330 
24A0 
c500 
4230 
24F0 
4130 
c500 
4230 
2450 
4130 
c500 
4336 
c550 
4330 
0870 
c570 
2338 
4130 
D275 
2651 
4300 
c550 
4230 
4830 
4230 
D330 
c530 
4230 
4130 


O34E1 
39EAQ 


9€B8U 
9608 


0049 
BO7E 


o04F 
9602 


95EE 
ou2c 
95F4 


95¢€0 
0000 
a05E 
0003 
950E 


oOuF 


98EA 
SE1A 


FFD6 
0001 
95c¥ 
9E3E 
9588 
g£00 
0045 
95AC 
959A 


=0021F6I 
=0022UATr 
=001966!1 


=0003E6I1 


20019741 
=001966!1 
=0019741 
=0019661 
=0003ECI 


=0019741 


=001C8CI 
=0021C0I 


20003821 


=0019741 
=0021F6I1 
=0019741 
=0021C0I 


=0019741 
=0019661 


HeeRMR HH HHH we HR HH HOH 


* 


FILE NUMBER Is FOUND OR UNTIL EOV. 


INPUT: 


OUTPUT? 


( ; 


PAGE S$ 15213357 11713761 


R1 = THE CURRENT INCREMENT INTO THE INPUT BUFFER: 
IT POINTS To THE FIRST CHARACTER TO RE USED 


FOR THE DEVICE IDENTIFIER (0 OR I) , 


THE MENIA WILL BE HANDLED AS FOLLOWS 

MAG TAPE! FORWARD TO THE DESTRED FILE OR FOV, 
OIrsc: THE OLRECTORY IS SEARCHED TO See IF 

THE NUMBER EXISTS ON THE OrSc. 

IF THE NUMBER IS FOUND "FOU" IS PRINTED ON THE 
CONSOLE, IF THE NUMBER IS NOT FOUND “E0v" » "EO" 
IS PRINTED ON THE CONSOLE. 

THE LOCk WORD FOR THE aPPROPIATE DEVICE Is UPDATED 
WITH THe NUMRER IF THE NUMBER WAS FOUND. OR LOCKED 
IF EQV 1S DETECTED. 


*e RHR HH RRR H HH HH HM OH OH 


KR REA EEA EEE EER ERE KEKE EEE EERE EERE EERE EEE EERE EEE EEA EEERKERER ED KX 


FFCOM 


FEMORE 


TSTEOV 


Eau 
LIS 
STH 
LIS 


x 


R3,0 SET THE FORWARD FILE MARK FLAG 
R3eFFBFEL SAVE THE FLAG 

R4el SET THE EOU 

R4 ,EQUFLG FLAG 

R3,GETCHR GET A CHARACTER 
RA,15 SEY THE I INDICATOR 
ROeC*re I? 

FFCOMI YES 

RAsO NO = SET THE O INDICATOR 
ROeC*O#. 0? 

QUEST 

RFE ,O CLEAR FLAG 
R3eGETCHR GET NEXT CHARACTER 
ROC oe! COMMA 7? 

QUEST NO 

R5,0 YES 

R3eGETCuHR GET THE NUMBER 
ROX*0De CR 

FFIT YES 

R53 NO - TOO MANY CHAR ? 
QUEST YES 

R7.RO NO = HEX CHAR ? 
R7sC*O? IS It 0 ? 

TSTEOYV 

R3,1SHxXcO 

R7,PGMNUM (RS) Yes 

R541 

FFMORE 

R5_l 

QUEST 

R3eFFBFEL 

QUEST 

R3ePGMNUM 

R3,C°E?r 

Quest 

R3,GETCHR 


MDG04280 
"0504290 
@OG6044500 
40604310 
¥03043206 
M0G04330 
45504349 
M5504350 
40604360 
40604370 
“0604380 
40G04390 
MDGO4400 
40604410 
42604420 
MDGO4430 
MOGO4440 
M0G04450 
™DG04460 


MOG04470 © 


MOG¥44Q0 
mo0G04490 
~DGY¥4500 
m06904510 
MDGO4520 
™D0G604530 
43604540 
4DG04550 
M0G04560 
MDGU4570 
M™DGO04580 
m0G94590 
MOGO4606 
M0GU4610 
4O0G04626 
MOUGU4630 
M0G04640 
“0604650 
MO0G04660 
MOGVU4670 
“0604680 
MOGO04690 
MDGO4700 
MOGU4710 
MOGU&720 
40604730 
uDG04740 
MOGO04750 
MD0GU¥4760 
MOGYUGT7O 
4DGU4780 
m0G604790 
MDGO04800 
M0604810 
MDGU4620 


MMD GENERATOR 


o0003CCI 
000zp0I 
0003041 
Cc0zpal 
vOOzN0CT 
ocosEeal 
0003EaI 
COOZE6I 
0003Ea1 
O0o3ECI 
OU0ZFOI 
OOO3F4I 
OGOosFSaI 
0003F Ar 
0003FcI 
OGO400TF 
0004041 
UOO4u0g) 
OOduoaAT 
GOO4OERT 
o004lal 
009416! 
O00u1aAI 
QO041¢ET 
000422aT 


0004261 
VUUG2aT 
00042€E1 
000432T 
0004362 
00043al 
00043ET 
O0044aT 
000446! 
O0044al 
O0044ET 
0004521 
0004541 
00045alI 
o004uScI 
aco460r 


O004ug4T 
G6046al 
ooo4Ec! 
O0046Ee! 
UGQu72T 
000476! 
0004781 
00047crI 
o0ouB0! 
O00G84I 


OGO4aRal 


c500 
4230 
cs8oo 
4O0u0 
6200 
2453 
43600 
24Fe 
4300 
c550 
4230 
4O0A0 
O8AA 
2136 
4130 
4130 
2365 
4130 
4130 
DEAO 
cSlo 
4389 
DEAO 
4830 
4230 
0000 
DEAD 
4100 
E650 
E660 
£616 
4130 
4830 
4530 
4230 
0330 
D340 
0534 
4230 
DEAD 
4100 
4300 
o000 
4100 
4800 
23355 
DEAO 
4140 
240F 
4000 
DEAO 
4100 
43500 
0000 
4100 


O6~1L77FO2ZR04MG1A13 
6056 483 
9540 =0019741 484 
3930 485 
9DE4 =0021CYI 466 
9DF2 =an21C2I 487 
488 
FF9C 20003821 489 
490) 6FFCOMI 
FFeaa =CO0S74I 491 
0003 492 FFIT 
95gU =0019741 49% 
9EUG =0021FEI 494 
$95 
496 
95C4 =0019C4I 497 
937€ =061782I 498 
499 
95AE =001719BBI 500 FFIT1 
Q93EC =0017FAI 501 
9498 =0018AAI 502 FrITe2 
0003 503 
8098 =9004BeI 504 
9496 =6018B4l1 §05 
9004 =O021F6I 506 FFBFL 
BO3SE =000464I 507 
04261 508 FFIT3 
947c =0018A6I 509 
9552 =00198UT 540 
QAFE =001F301 511 
9B8ec =001F62I 512 
B04E 2000488! 513 
910g =001546I1 514 
9D7E =0021C0I 515 
9AEA =001F 301 516 
FFO4 =Q0041EI 517 
9074 =0021C2I 518 
9AG0 =001F321 519 
520 
FFCe =00041EI 521 
9451 =001B8ADI 522 
9520 =0019807 523 
aoge =00050e2t 524 
0464] 525 Brit 
$526 =00198EI 526 
908EF =0021FAI 527 @FITiI 
528 
9435 =0018ATI 529 
9518 -00198EF1 530 
531 Brits 
9076 =O021FAI 532 
9427 =0018A7TI 533 
5504, =00198FI 534 
FF9E =00042671 535 
04681 536 FRFEOV 
g4Fqu =00198Uyz 537 


Ro,C*ve 
QUEST 
ROX*3030°" 
RO.PGMNUM 
RO,PSMNUM42 
R5,.3 
FFMORE 
RFe2 
FFCOM 
R5-3 
QUEST 
RAsIOFLasS 
RAeRA 
FFIT. 
R3,LOKOUT 
R3,LODAn 
FFIT2 
R3eLOKIN 
R3.LIOap 
RAsOISABL 
Ri,gx*3e 
FFOISC 
RA; CLEAR 
R3,FFBEFL 
BFIT 


¥ 

RAeFWEM 
ROeNOMOTN 
RSeFFBUF 
R6eFFBUF +50 
R1,FFEOv 
R3,READPB 
R3,.P6MNUM 
R3.FFBUE 
FFBF1 . 
R3.PGMNUM+2 
RG »FFBUF+2 
R3sR4 

FFBF1 
RAeBKSP 

RO -NOMOTN 
FFDSCS 

x 


RO eBKEMNM 
RO.«BKSPEL 
BFIT4¢ 
RA«BKFS 
RO »BKFMNM 
RO,.15 

RO eBKSPFL 
RA. BKFM 
RO.BKEMNM 
FFIT3 

x 

RO eNOMOTN 
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Is It v ? 
NO 


SET FLAG 


COUNT = 3 
NO 
YES - SET roNDITION 


ZERO THE FF THE OUTNDEV 


LOCK THE INPUT DEVICE 
LOAD THE INPUT ADDRESSES 
IDSABLE INT 

TAPE ? 

NO = DISC 

YES «CLEAR 


GET THE FLAG 


FORWARD FM 
WAIT 
SET uP TO READ 


READ THE POB 

GET THE NUMBER ENTERED 

NO 

YES « GET THE THIRO OrGIT 


NO 


YES « REPOSITION THE TAPE AT 


WAIT FOR NO MOTION OF 3OT 
BACKSPACE FLAS SET ? 

NO - DO 1 BACKSPACE 

YES ~ 00 2 SACKSPACES 
WAIT FOR NO MOTION OF ROT 


SET THE DOUBLE BACKSPACE FLAG 


WAIT FOR NO MOTION OF BOT 


MOG04830 
mOoGY¥4ay40 
m0G84850 
MOG44660 
m0G¥4870 
MDG04880 
MDGU4890 
MDG604900 
m™9G04940 
m0604920 
MDG04930 
MOGO494O 
MDGO4950 
40604960 
MOGU4970 
mDGY¥G9Q0 
MDG04990 
mdg¥suan 
m0G¥5010 
MDGYU50sC 
MDG05030 
MOGO5040 
MOG¥5950 
MpGY¥5U60 
mDG05S070 
mD605080 
4DGU5090 
mDG¥5100 
m0G¥8110 
m0695120 
M0605130 
40605140 
moG¥5150 
mDG¥5160 
“0605170 
moe60s5igo 
m9G695190 
M0G05200 
MDG95210 
mo0G45220 
m0G6¥5230 
mOG05240 
M0605250 
wOGU5260 
mDGYS279 
MDG05280 
mDG695290 
wog¥5300 
MuG05310 
mDG645320 
w0GU5330 
MD0G95340 
M0G05450 
“DGO05360 
“D6U53570 


aMD 


N00A4CT 
COGASET 
O0d~aS50r 
UOUR54] 
conAsel 
cOnA5AL 
oocascl 
OCGASETL 
ocoaeol 
OODAG4I 
000A68I 
GOCOAGAI 


ONODAGBCI 
O00n6EI 
OO0A7T2I 
O00A76I 
0O0A7AI 
OOOATET 
O00aR2T 
O00ngéEI 
oooAsal 
O00aaET 
oonag921 
COoASHI 
oooAgal 
ceoagal 
OO0ASEI 
oodAA2T 
O00,ael 
OOOAAAI 
DOOAAEI 
O00AR2T 
CODABGI 
0OGABSI 
*00GABCI 
*000ABEI 
cooacel 
OooAC4HI 
cooacel 
GOOaccl 
UvOADOT 
vudaAn4l 


ooO0apDBI 
cooaDdcl 
cosabel 
COOAEOT! 
Cooag2l 
COOAEGI 
COCAESI 
OocAECI 
UU0aFrFOT 
OOOAF4I 


GENERATOR 


0660 
9A56 
p3ua 
4130 
9A50 
0760 
SASO 
9A50 
DESO 
5830 
0303 
8040 
0000 


24441 
4040 
4130 
4130 
4130 
£650 
£660 
4130 
4130 
4130 
9DA1 
c¢310 
23355 
c810 
4300 
E650 
e660 
4150 
4130 
£656 
0865 
4830 
2535E 
CA60 
2731 
4030 
C830 
4030 
4130 
430 
0000 
4830 
2336 
0AG3 
o711 
4010 
2200 
4130 
4309 
5030 
4080 


9514 =001F 6a! 
9234 =001C8CI 


8006 =O00A6AI 
9764 =0021CCI 


OAGCI 


9798 =00220ar 
8606 =00134CI1 
8DBU =0017FAI 
BA54 =0014D21 
S4E6 =00;,Fé68I1 
9515 =001F9RI 
B7E4 =00126FI1 
FF28 =0009B6EI 
ace¥ =0017821 


0020 


coc 

9232 =001CD4I 
94C2 =CO1FE8I1 
S4F1 =O001F 981 
BABE =00153CcI 
aDd4@ =0017FAI 
94e6 =001F9CI 


975c 20022181 


OOFF 
9750 =0022181 
OOFF 
974A =00221a1 


&79A =00126EI 
815A =000C3271 
OADSI 

973A =0022161 


9730 =002216!1 
8004 =Q00AF0L 
80C2 =000BB2I 
96F8 =0021ECI 
g97ac =0022241 


1087 
l6aa 
16a¢ 
1uU99 
1091 
1090 
1093 
1ug4 
1095 
1096 
1097 
1098 
igs9 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
131714 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
11490 
1141 


06-177F02R04M91A13 


DsPCmMD 
prMo 


Feu 


* OISC INPUT 


DrMO1 


DIMONX 


NrMO02Xx 


OrMOLB 


DIMONL 


CaPOVE 


LIs 
STH 
BAL 
BAL 
BAL 
LDAT 
LDOAT 
BAL 
BAL. 
BAL 
SSR 
THI 
BZs 
LHI 
8 
LDAT 
LDal 
BAL 
BAL 
LDA 
iLDAR 
LH 
B2 
AAT 
sis 
STH 
LHI 
STH 
BAL 


R6,R0 
R5.R6 
RO,PDB 
R3,ISHxcCO 
R5,R9 
RO,RO 
R5.RO0 
R5,R0 
R5,D0SPcm0 
R3eMISTRN 
R3 

Xt e04Qr 

x* 


- MAGS TAPE 


R4,l 

R4 EQJFLE 
R3eUPOTPET 
R3,.LIDAD 
R3,D0IRPGM 
Rs. PDB 
R62PO0B451 
R3eAVAILR 


R3,MISTRT 


R3Z,LODAG 
RAeR1 
Ri~X*202% 
DrmM0i 
RisX*EO? 
ERRA 
R5.PO0B 
R6eP0B+51 
R3.WRTPR 
R3,LIDAD 
R§5,WRTBUE 
R6eR5 
R3eNUMBLK 
OIMOLB 
RG6eX*FFP 
R3.1 
R3eNUMBLK 
R3eX*Fre 
R3+CURBLK 
RZ.AVAILR 
DrMO0O1Xx 

* 


R3,LSTBLK 
OIMONL 
R6.R3 
Ri,ki 
R1ieLSTBLK 
Ormod2x 
R3.COPDVE 
DIMOEE 
R3,.DIRTN 
Ra OIMOST 


PASE 


OUTPUT 


15313357 11713781 


NORM / INC 


FIND THE STARTING POSrTION 
CONVERT THE POINTER To LOC, 


* RO4 
READ THE PpB FROM DISc 

SET THE NUM, OF BSLKS, TO BE COPIED 
LOAD THE OUTPUT DEV, «DO. 


BOT ? 
NO 
YES - ERROR 


WRITE POB ON ROG 
TAPE 
LOAD IN ADO, 


SET THE ADDRESS 


SET # OF BLOCKS 


NO DATA SHOULD BE LEFT FOR THIS 
PROGRAM =~ SAVE CYL « HEAD = SECTOR 


M0G610870 
™DG610880 
mUG10890 
M061¥900 
MDG10910 
M0G10920 
mDG610930 
MDGIO94N 
MDG610950 
M0619960 
MDGi0970 
MDG10980 
M0610996 
#0611000 
“0611010 
40611020 
40611030 
m0G611040 
mDG611050 
M0611960 
MoG611970 
m0611080 
m™DG11090 
MDG11100 
MD0G11110 
M™DG11120 
MO0611139 
40611140 
m06111506 
0611160 
M0G611170 
mU611180 
m0G11190 
mDG611200 
M0G611210 
#0611220 
MD611236 
0611249 
"0611250 
M0G611260 
M3G611279 
m0G611280 
m9611290 
M0G611500 
MDG611510 
M2611320 
MDG11330 
MDG611546 
MDG11350 
“0611560 
MUGL1357~5 
M0G611360 
40611590 
M0G11400 
“0611410 


MMD GENERATOR 


COoAFal 
00CaFcI 
CUdRDOT 
000R04I 
O00g0Rr 
OUROCI 
0UUg101 
O0OR141 
C00RigI 
O0O0picI 
o00B20I 
GOnR22I 
ocoRe6l 
0o00B2aAI 
G00R2EI 
0008321 
vG0B361 
000uB3AL 
OOORZEI 
OO0bRGET 
00GR46EI 
o00B4AL 
Co0RuEI 
0008521 
O00BS6I 

*000R5AI 
o00B5cI 
covoB6Oor 
OooB6E4l 
ov0B66I 
O00Ré6aI 
cooBec! 
0008701 
0008721 
O00B76!1 
000B7Ar 
GooB7EI 
000RSOI 
dooss4l 
0068881 
oooBsal 
oo00Réscl 
090R901 
o00R94I 

«0008981 
oo0B9al 
000R9CI 
COOBAUI 
GOnBAZI 
000BA4GI 
S00BABI 
Go0BACI 
o0oBROr 
GuoBB2I 
o00BBEI 


4880 
4080 
4880 
4080 
4880 
4830 
4030 
4830 
4030 
4820 
2628 
c520 
4330 
4020 
4130 
4130 
DEAG 
4130 
£650 
E660 
4130 
4130 
4820 
4832 
4530 
213€ 
4830 
0342 
0534 
2138 
4830 
D34e 
0534 
4330 
c810 
4300 
26861 
4840 
4584 
23354 
0722 
4360 
8856 
4534 
2338 
2631 
4030 
o722 
0788 
4306 
4020 
5830 
0303 
4130 
DEAO 


9706 
9726 
S6FC 
9720 
9609 
9695 
56EE 
9698 
36E4 
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=001F9CI 
=OO00ELATI 
=0019DEI 
=Q018AFI 
=O01A191 


=G0220aT 
=0019DEI 
=OOLAS6I 
=DOQ21F4T 
=QN00EEQOL 
=O0G1F9CcI 


=O0019DEI1 
=0015207 


i362 
1363 
1364 
1365 
1366 
1367 
1368 
1569 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
13a4 
1385 
13a6 
1387 
1338 
1389 
1399 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1490 
1403 
1402 
1463 
1404 
1405 
21406 
1407 
1408 
1499 
1416 
i421 
1412 
1413 
1474 
1415 
1416 


eee RH HHH HH HH RH OH 


* 


KRM EEERE EAE EKER KEE TEE ERE EERE RE EAE EERE RE EER ERE EEE SE KEE ERE EERE ES 


INIT LOAD DEVICE ADDRESSES 


IOWT 


INITZF 


INI TSK 


srCK1Xx 
SRCK1L 


SRCK2 


Orsc 


R3,LODAN 
R1,3 
INTAPE 
Ruel 

R4& eEQUFLG 
R8,SToP 
RC,RESEr 
R3.R3 
RA»R1L 
R1eX°10¢ 
IowT 
R1,S0D 
R1eCYL 
R3-WDFT 
RAeRESTOR 
R3,.FRSRw 
RO,RO 
R1,.0 

R2,2 
R3eX*FEe 
RO eWRTBUF (RIL) 
Ri, INITZF 
R3,WOFT 
RA.SEEK 
R3-FRSRwW 
R3,0 
R3,HEAD 
R8&,R8 
R3,WOFT 
R3eRCHK 
R3,CONSTA 
R3_eX'20s 
PNGS 
R5.WRTRUE 
R6—R5 
R6eX' FES 
R3-WDFT 
R3,WDIS¢ 
* 


15213357 


ERROR FREE, 
BITS SET) 
ZERO OuT START CYLINDER, 

VERIFY THAT NEXT CYLINDER IS ERROR 
FREE (NO DEFECTIVE SECToR BITS SET) 


SECTOR ZERO, 


11/13/82 


WRITE THE BOOT LOADER 
WRITE A FILE MARK 


VERIFY THAT START CYLINDER IS 
(NO DEFECTIVE SECTOR 


START CYLINDER IS INIT~ 
IALIZED TO INDICATE THAT KNOWN DATA 
IS ON THE DOISc 


INITIALIZE THE TAPE. 


SET THE £O0uU 
FLAG 


STOP THE SELCH 


NO - RESET THE CONTROLLER 


NO 


WAIT FOR OTSC ADD. 


GET START 


SEEK 


SET HEAD To 


ZERO 


SET THE SECTOR TO ZERO 


READ CHECK THE SECTOR 


RESTORE THE FILE 


GET THE STATUS 


DEFECTIVE TRACK BRANCH 


Yee KER HE HHH HE EHH 


INTERe 


m0613620 
"0613430 
MOG13640 
MOG1I36&0 
MD613660 
M0G613670 
406136680 
M0613690 
M0613700 
M0G13710 
MDG13720 
40613736 
M0G613740 
"5613750 
MDG13760 
M0G13?70 
M0G613780 
MDG13790 
M0613800 
MO0613810 
40613820 
MJG13630 
MOS13540 
M0G13850 
MO0G13860 
M0G1357T0 
MD613889 
m0613890 
MDG13900 
MN613910 
40613920 
40613930 
40613940 
M0613956 
M0613966 
M0G13970 
M0G613986 
MDS139S9 
MDG614000 
mN616010 
M0G14020 
mDG614030 
m0G614U40 
M0G6140509 
M0G14060 
40614070 
NOG142a0 
MOG14U090 
MOG14100 
MUG14110 
MOG1i412¢ 
MO0G14130 
MO0G14140 
m0G614152 
MOG141lé60 


MMO 


oooF5CI 
oooréeol 
oooFé21 
OooFSsél 
QooEsel 
o0oFréCcI 
Q0OE7OI 
*OCOOF 741 
0o00F 761 
OOOETAL 
O00F7CI 
oooEBOI 
OO0FB4I 
oo0rasl 
*000E8CI 
GOOEBEL 
o00F92T 
OU0E96I 
o00E9al 
OOOESET 
coorAal 
OCOEA4I 
O00g ABI 
O00EACT 
GO0FROT 
GooEB4I 
oonEBSI 
cooEBCI 
GooECcOL 
oooECc4H! 
onoECSI 
coctcc!l 
oOoEDOI 
O0GEO4T 
COOEDBI 
900ENCr 
OOSEEOI 
OOOFF4] 


OGoFESI 
OCOEEAT 
OGOEEET 
QOoEFOI 
O00FF4l 


oooEFal 
OOOEFAL 
OCOEFEI 
OOOFO2I 
cooFoel 
OOoFOs! 
U00F0cCI 
O00F101 
OOOF14! 
COOF1a! 


GENERATOR 


4830 
26814 
4583 
2333 
43U0 
%826 
4523 
23358 
4890 
2604 
4009 
4300 
4810 
p410 
2337 
0319 
4010 
4 3G 
0310 
4010 
0788 
4080 
4130 
DEAD 
4130 
c81o 
4010 
4016 
4010 
4010 
D330 
p230 
4130 
4130 
4130 
4300 
c81o0 
4300 
0006 
SDA1 
C310 
2135 
c810 
4300 
0000 
244] 
4040 
DEAO 
OE AD 
gDAL 
C310 
4236 
4100 
DEAN 
4190 


9364 
FEFE 


FFCA 
9392 
FeFE 


9388 


9382 
FFBO 
93578 
F1BF 


F189 
936A 
FF&8 
FLAC 
935E 


935A 
8B32 
89FF 
8B5C 
EEEE 
90E0 
90DE 
900C 
SODA 
FTF 
90D9 
BBOA 
8648 
BAE8 
TEU 
aoE2 
&DEC 


OEE SI 


0020 


O0E1 
e00c 


OEFSI 


930C 
BIAB 
BSAS 


0010 
871C 
SAGC 
8995 
BAG4 


66-177FO2RC4N91413 
=0621C4I 14437 

1418 
=GOO5641 1419 

142¢ 
=000E361 1421 
=0022027 1422 srCK4 
=0005721 1423 

1424 
=0022001 1425 

1426 
=002202T 1427 
=000E341 1428 
20022007 1429 =SRCEND 
-300004B] 1430 

1431 
=60004B1 1432 
20022007 1433 
=000E221 1434 
=00004aAr 1435 wINIFO 
=002200T 1436 

1437 
=00220aT 1436 
=00190E1 1439 
=Q0018AFI 1449 
=001A107 1441 

1442 
=001F9CI 1443 
=001F 91 L444 
=001F AOI 1445 
=O01FA2I 1446 
=00004B1 1447 
=O01F ASI 1448 
=0019DEI 1449 
=00152U7 1450 
=0G19C4I 1451 
=0016C9] 1452 

1453 PNGS 
=001C04i 1454 

1455 INTAPE 

1456 

1457 

1458 

1459 
=O01CO04I 1460 

1461 INTP1 

1462 
=00220aI 1463 
=0018AAI 1464 
=0018ABI 1465 

1466 

1467 
=00162cI 1468 
=00198V] 1469 
=0018ADI 1470 
=001980T 1471 


( 
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R32,TRKDOFN 
R&el 
RBeSECTABI(RS) 
SRCK4& 

SRCK1 
R2,HEAD 
R2eHOTAR (RS) 
SRCEND 
RO,HEAD 
RO,2 
RO,HEAD 
SRCK1xX 
R1eCYL 
R1.SoP 
WINIFO 
R1,S0P 
R1CYL 
INITSK 
R1,S00 
R1,eCYL 
R&,RS 
R&,HEAD 
R3.WDFT 
RA+SEEK 
R3,FRSRw 
R1,X*Gere® 
R1-WRTSuF 
RieWRTBUF+2 
R1 WRIB YF SG 
R21, WRIBUE +E 
R3eSOP 
R3,WRTAUF+13 
R3,WDFT 
R3,WOISr 
R3eLOKOUT 
PEOJ 

Rl gX*Eoe 
ERRA 

* 

RA,R1 
R1eX'20¢ 
INTP1 
RieX°E1+ 
ERRA 

* 

R4al 
R4,EQUFLG 
RAWISARL 
RA,WFM 
RA,RL 
RieX'108 
NORUN 
RO»«NOMOTN 
RA,BKSP 

RO eNOMOTN 


15213357 11/13/61 
LOAD TRKOEN 
INCRIMENT SECTOR 
MORE SECTORS 7 

NO 


MAXTMUM? 

YES + FINISHED 
LOAD HEAD 
INCRIMENT 

Save 


GET CURRENT 

FIRST PROGRAM CYLINDER CHECKED?? 
YES 

GET FIRST PROGRAN CYLINOER 

MAKE CURRENT 

CHECK IT 

GET START 

MAKE CURRENT 

SET SECTOR TO ZERO 

SET HEAD TO ZERO 


SEEK 
WAIT 


INIT. THE FIRST SECTOR 


GET START 


WRITE TO THE DISC 


LOCK THE OUTPUT DEVICE 


PRINT DISC PACK UNUSABLE 


WRITE A FILE MARK 


WAIT FOR NO MOTION 
BACKSPACE OVER THE 
WATT FOR NO MOTION 


™0614170 
MOG14180 
M9G614190 
40614200 
MUG14e216 
MO0G14220 
m0G14230 
MUGL4240 
“0614250 
m0614260 
MO0G14270 
40614280 
AD614290 
M0G14300 
MDG61431,4 
MOG14325 
™DG14330 
"6614340 
MDG614359 
MDG14360 
MD0G14376 
mDG614380 
MDG14390 
40614400 
MD6144130 
M0614425 
M0614430 
m06144%40 
M0G614456 
40614460 
40614470 
0614480 
40614490 
MOG614500 
M0G14510 
M0614520 
40614530 
4OG14540 
MOG14550 
0614566 
M0G14570 
M3G6145B80 
M0614590 
m0614600 
MDG14610 
MOG1i4629 
40614630 
M0G614640 
M0614650 
MDG14660 
MDG14670 
MDG146a90 
™DG614690 
MDG14700 
™D614710 
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O00FIcI £650 sabes =0010061 1472 - [L§OAT RS-MTBOOT M0614720 
OUVOF20I £660 8631 =001D551 1473 LOAI R6ésMTBOGT+79 MOG14730 
OOOF24I 4130 8614 =00153CI 1474 BAL R3,WRTPR MD614740 
CONF28I E650 @E2E =001D5AI 1475 LOAIT RS-sMTLOADS SET THE START ADORESS MDG14%75 
OO0F2cI E660 aF99 =001EC9I 1476 LDAI R6-+MTLOanE SET THE END ADDRESS MDG1476 
QOOFSOI 4130 8608 =00153crI 1477 BAL R3,WRTeR MDG14770 
UOOF3S4I 4130 BABC =0019C41 1478 BAL R3.LOKOUT LOCK THE OUTPUT DEVICE MD6147890 
OUOF3BI 4300 a76c =0016A8I 1479 B Eov M0G14%790 
L4§Q KKK EEHE RATER EM ESERE EE EEE ERE KE EER ER ER EEE ERK EK EERE RES KX MOG14600 

1481 « * m0614810 

t4g2 *« CREATE ¥* ¥DG14820 

i4az x * M0614830 

1464 KR RREK EKER ERASER ERKA ERE RES EREREE SEES ERE ERE EREREKERE RE EERREEE AKERS DE mOG148a0 

1485 x * M0G614859 

1486 «* THIS ROUTINE WILL cOPY A PROGRAM FROM MEMORY TO THE SPECIFIED * MOG14860 

1487 * OUTPUT DEVICE. THE OPTION “LimITS* rS USED TO SET THE BSOUNDRIES * 40614870 

l4eg « FOR THE PROGRAM To BE COPIED. THE PoB IS FORMATTED WITH THE * ™DG14880 

1489 x OPTIONS "SEQNAM" = “LIMITS” © ®"LOW" «© "HIGH" = ANDO THE CHKSUM * M0G14890 

1490 * IS CALCULATED AND PLACED IN THE BLOCK. THE POB FOLLOWED BY THE *  ™D614900 

1491 PROGRAM IS COPIED ro THE OUTODEV MEDIA, x M0G614910 

OOOF4OL 1492 ALIGN 8 MDG614920 
0000 OF4OI 1493 CREA EQu * M0614930 

QOOF4OT 2430 14904 its = R320 SET THE CREATE INDICATOR mDGL4940 
OOOFHST 5030 928F =0021D4I 1495 STA R3,CPYFELG SAVE RETURN MDG14950 
OOOF46I 4800 901E =001F68I 1496 LH Ro,.SEQNAM M0G14960 
COOF4AI c5S00 e020 1497 CLHI RO,.X*2000° MOG14970 
OOOF4YEL 4330 glFe =0011507 1498 BE CREAER M06149a80 
GOOFS2I c500 3030 1499 CLHI RO,X*3030 : SEQNAM = 0 40614990 
GOOF56I 2157 1500 BNES CREA1 NO ™DG615000 
COOF58I 0300 SO0E =001FE6AI 1501 LB RO,SEQNam+2 SECOND HW = 0 m0G615010 
OOOFS5CI C500 0030 1502 CLHI ROeX*308 “0615020 
O00FE0I 4330 giec =0011591 1503 BE CREAER 40615430 
OOOF64I C830 0012 1504 CREAI LHI R3,18 ™DG615040 
OOOoFésI 2450 1505 LIs R5,0 SET FLAG “0615050 
OOOF6GAI 5800 8BFS5E =001ECCI 1506 LDA Ro,LOw 40615060 
OOOF6EI C840 DOFO 1507 CREAS LHI Ra eX*Foe M0G15070 
OOOFT2I 114%¢ 1568 SLLS R&el12 "DG615080 
OOCF74Y o440 1509 NAR R4&,RO ™D615090 
OOOF76I 1048 1510 SRLS R&,8 MD0G615100 
OCOF7BI 1048 1511 SRLS R&S mMOG1i511¢6 
GOOFTAI O24%3 SFEA =001F 681 1512 sTtB R4.PDBiR3) M0G615120 
OOOF7EI 2631 1513 AIs R3,1 M0615130 
OooFBOI c&40 FFOO 1514 LHI Ra X*FFoO? mo615140 
OCOFBYI 0440 1515 NAR R4.RO M0615150 
coorFséI 1048 1516 SRLS RHA m0615160 
doorFssl 0243 BFOC =001Fé6al 1517 STs R4&.POBiR3) M0G615170 
QOOFSCI 2631 1518 AIS R391 M0615160 
OGOFSEI C8&4o noFF 1519 LHI ReeX*OOFF? 0615190 
COOFI2I vaso 1520 NAR Re,RO 0615200 
OOOF94I 02463 eFDO =001F68I 1521 STB R4.PDB(R3} “0615210 
COOF9BI 2631 1522 AIS R31 M0615220 
OOOF9AI C550 0000 1523 CLHI R5.0 Mc615230 
OGOF9EI 2136 1524 BNES CRECHK #0615240 
COGFAOL 245F 1525 LIs R5-15 M0615250 


OCOFA2ZT 5800 BF 2A =CO1LEDVI 1526 LDA RO-eHIGH MDG15269 


MAD 


COGFAGI 
OGOFAAL 
OOOFACI 
oGcorBol 
ocoFB4! 
oocraél 
000FRBI 
ooorF3Cc!l 
OOoFBETL 
OooFC2I 
COOFCHI 
oooFCcSaI 
oooFcAl 
O00FCCI 
oooFDOT 
*O00FD4I 
OGOQFDSEI 
ooorFDBI 
OOOFDAI 
OOOFDCI 
OOOFEOI 
OdOFE2I 
OOOFE4ST 
O00FE6I 
OOOFEAIL 
cCOGFEET 
oooFFal 
OOOFF6I 
QOOFFAY 
OOOFFCI 
0010001 
0010021 
0010061 


00100ar 
00100cr 
0010101 
0030241 
0010161 
00101cI 
0010201 
0010247. 
0010281 
oo102c! 
0G102E1 
0010307 
001034] 
UG1L038I 


00103cI 
00103E1 
UO1042T 
00190461 
G0,044T 
0010GET 


GENERATOR 


4300 FFC4 
2450 
§840 BF1iC 
D324 9000 
0752 
2641 
5540 aFi4 
2086 
0324 0000 
0752 
D253 aFad 
2631 
2455 
D343 aF98 
c540 o02E 
2133 
2752 
2632 
2449 
0243 af Ba 
2631 
2751 
2035 
4130 a798a 
4800 BEEA 
c500 9003 
4380 8046 
4130 8788 
9DAL 
C310 0020 
2335 
C810 90FO 
43U0 8CCA 
0000 
2441 
4040 91FA 
E650 @FS4u 
E660 8F83 
4130 3520 
5800 SEAC 
58E0 S8EaAC 
4130 A84A 
4130 4510 
0844 
2235 
4130 3990 
4130 8998 
4300 866C 
0000 
2441 
4uU40 9108 
4139 AS3E 
4130 8738 
D330 EFFC 
4030 91A€ 


LOOAI 


103CI 


D6-177FU2RO4MOLA13Z 
=O000FGEI 1527 

1528 CRECHK 
=OG1ECCI 1529 

1530 0 6CHK1 

1531 

1532 
=001ED0T 1533 

1534 

1535 

1536 
=001F68I 1537 

1538 

1539 
2001F 681 1540 

1541 

1542 

1543 

1544 

1545 CHK2 
=001F68I 1546 

1547 

1548 

1549 
=001782I1 1550 
=001ED81 1551 

1552 
=00103CcI 1553 
=0017821 1554 

1555 

1556 

1557 

1558 
=001CO4I 1559 

1560 wRTPDB 

1561 
=0022Var 1562 
=001F68I1 1563 
=001F93[ 1564 
=00153cI 1565 
=O001ECCI 1566 
=O01EDUI 1567 
=001872I1 1568 wWRT1Y 
=00153cI 1569 
; 1570 

1571 
=0019C4y 1572 
=O019D0I 1573 
=0616ABI 1574 

1575 cREDIS 

1576 
=O0022UAT 1577 
=0013841 1578 
=001782I 1579 
-00004GaT 1580 
=6022001 15a1 


CreEAS 

R5,0 

Ry, LOW 
R2,0(R4) 
R5.R2 

R&_i 

R&, HIGH 
CHK1 
R2-0(R4) 
R5eR2 
R5-PDB(R3) 
R3,1 

R5,5 
R4-ePOB(R2) 
R4eC*e? 
CHK2 

R5,2 

R3.2 

R4ed 
R&.PDB(RZ) 
R3ei 

R5,21 

CHK2 
R3eLODAn 


RDsOUTDEV- 


ROeX*OSe 
CREODIS 
R3.LODAn 
RAR1L 
R1sX*20 
WRTPDB 
RieX*£or 
ERRA 

* 

R4el 

R4 EQUFLG 
R5,PO8 
R6.P0B451 
R3,WRTPR 
RO.LOW 
RE.HIGH 
R3.STBKan 
R3,WRTPR 
R4,.R4 
WRTLY 
R3eLOKOT 
R3,2SEQ 
EOV 

x 

R4,1 
R4«EQUFLG 
R3eUPDT xx 
R3,LODANn 
R3,S0D 
R3,CYL 


( a 
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CALCULATE THE 
CHKSUM BYTE 


LOAD EXTENSION DELIMITER 
EXISTS? 

NO 

SET CLEAR COUNT 

SET POINTER 


PERFORM TESTS IN THE ROUTINE 
GET nEVICE INDICATOR 

DIsc ? 

YES 


ERROR ILLEGAL BOT OR FOT 
AT THE START OF AN OPERATION 


SET THE EOu 
FLAG 


* ROY 
LOCK THE OUTPUT DEVICE 


GET START 


4DG615270 
06152859 
™DG15290 
™DG15300 
MUG15310 
4DG15520 
#0615330 
MOGi554,, 
4DG615550 
40615560 
40615370 
4DG615380 


40615599 


0615400 
40615410 
MOG15420 
M0G15430 
MDG15445 
“0615450 
40615460 
40615470 
MD6154%80 
M0G15499 
MD0615500 
mn615510 
MD615526 
M0G155356 
M0G15540 
0618550 
M96155960 
40315570 
M06155890 
m0G615590 
MDG15600 
MOG15610 
m0615620 
40615630 
mDG15640 
m0G15650 
M0G15660 
40615670 
MDG15680 
M0G615690 
M0G15700 
MOG15710 
“0615720 
MDG15730 
MO0615740 
40615750 
0615760 
0615770 
M9G615780 
™0615790 
M0G615600 
40615610 


MAD 


0010521 
001054. 
00105aI 
00105cI 
0010601 
0010621 
0010661 
00106aI 
*00106CI 
0010701 
0010741 
00,0781 
00107cI 
001080T 
0010821 
0010861 
00108AI 
00108cl 
0010901 
0010941 
0010981 
oo109CcI 
On1N9ET 
0010A0I 
0010A4I 
OGLOABI 
0010aAaT 


OO1LOAEI 
0010B0I 
001084! 
0010B81 
0010BaAI 
O010BEI 
*0010C2I 
0010Cc4lI 
0010C8I 
*0O10CAI 
0040CEI 
0010021 
0010061 
00100a1 


00100cI 
GO010E9I 
CO10E4! 
0010E8I 
0010EaI 
Q016EEI 
COLOFOL 
OOLOF4I 
OO10FSI 
0010FCI 
0911001 
9011041 
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0786 
4130 
DEAD 
4130 
2430 
4030 
E650 
0865 
CA60 
4130 
4130 
C830 
4530 
2335 
C8lo0 
4300 
0722 
D332 
c530 
4330 
D350 
0553 
2138 
4832 
4850 
0553 
4330 
0000 
2626 
c520 
4230 
2681 
4830 
4583 
2330 
E650 
0865 
CAG0 
4130 
4130 
2420 
4300 


4820 
4523 
4336 
2621 
4020 
0788 
4300 
$830 
4036 
4080 
4882 
4080 


8986 
R853 
a9B0 


919C 
9042 


OOFF 
8964 
84A2 
FEEE 
902C 


OoEO 
BCHA 


901E 
co00 
805c 
BECE 


9008 
BECO 


81B8 


10aE1 


0100 
FFD4 


9150 
F4uA2 


8FES 


OOFF 
agic 
a44y 


FFBO 


9122 
F4UBE 
8B89C 


9114 


FFOO 
910A 
BFAO 
BF9E 
BF AC 
S0FB 


06-477F02R04M91A13 

1582 
=CO01LSDEI 1583 
=QO18AFI 1584 
tO01A10L 1585 

1566 
s0022UaT 1587 
=0020ACI 1588 

1589 

15990 
=00190E1 1591 
=00151Al 1590 

1593 
=O020ac!lI 1594 

1595 

1596 
=001CO04I 1597 

1598 CREA4 
S0020AEI 1599 CREA6 

1600 
=O010F4I 1601 
=O01F6AI 16092 

1603 

1604 
=0020ACI 1605 
=O01F68I 1606 

1607 
20012661 1608 

1609 CREAXY 

1610 

1611 
=00106cI 1612 

1613 NxTOIR 
=00220¢1 1614 
=0005641. 1615 

1616 
=O0020ACI 1617 NXREAL 

1618 

1619 
=0019DEI 1620 
sO0151AI 1621 

1622 WxXDRi 
=00108CI 1623 

1624 = x 
=00229aI 1625 NxORHD 
=O0005721 1626 
=OG1C84I 1627 

1626 
20022027 1629 

16306 
=0010C4T 1631 
=002202T 1632 AVAIL 
=00209CI 1633 
=00209¢T 1634 
20020801 1635 
=002200T 1636 
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R8,RS 
R3,WDFT 
RA+SEEK 
R3Z,FRSRW 
R3,9 
R3.HEAD 
R5sDOIREcT 
R6-R5 
R6yX*FEe 
R3,WDFT 
R3,ROISc 
R3eX*EEFE? 
RZ-eOIREcT 
CREA 
R1IX'*Eoe 
ERRA 

R2eR2 
R3.DIRECT+2(R2) 
R3eX*O0r 
AVAIL 
R5,SEQONAMs2 
R5eR3 


CREAXY 


R3eDIRECT(R2) 
R5,SEQNAM 
RS5,R3 
NUMTHERE 

* 


R2,8 
R2eX*ioo? 
CREAS 

R6el 
R3.CUTRKDEN 
RGeSECTAB(RS) 
NXORHO 
R5,O0IRECT 
R6eRS 
R6eX"FFe 
R3,WOFT 
R3,ROISc 
R2,0 

CREA6 


R2-eHEAD 
R2,HDTAB(RS) 
DIRFUL 

R201 
R2eHEAD 
R8&,R8 

NXREAL 
R3,HEAD 
R3+sOIRPRM 
R&8 DIRPRM+2 
R&eDIRECT?4(R2) 
RB,CYL 


) 


15313:57 11/13/81 


SET SECTOR TO ZERO 
SET UP FILE 

SEEK 

WAIT 

ZERO 

OUT HEAD 

SET UP ADDRESSES 
FOR THE SELCH 


GO READ THE OISC 
SEE IF THE DISC WaS INITIALIZED 7 


DIRECTORY 

FOR AN 

GET THE THIRD OIGIT 
EQUAL 7? 

aun 


GET THE FIRST TWO OrGrTs 


EQUAL ? 


EMPTY BLOCK 

REACH THE END 7? 

NO 

INCREMENT SECTOR 

Load 

MORE SECTORS THIS TRACK ? 
NO 

YES 

SET uP FOR READ 


GO READ THE DISC 
SEARCH 


HE aD 

MaxIaum? 

YES » DIRECTORY FULL 
NO SET HEAD =+1 
STORE 

SET sEcToR To ZERo 
60 READ 


SAVE DIRECTORY INFO. 


SET THE CYL # FROM THe DIRECTORY 


"0615820 
MO0G15830 
“0615840 
m0615850 
40615860 
MOGi5870 
m0G615880 
MOG15890 
m0615900 
m0G15910 
M0615920 
MOG15930 
MDG15940 
M0615950 
0515960 
MD0G615970 
é0615980 
40615990 
MDGi6000 
mDG16010 
M0G16020 
mD616030 
40616046 
40616050 
MUG16U60 
™0G616070 
m0616480 
M0616090 
™0616100 
MDG16119 
M0G161209 
M0G16130 
M06161450 
MDG16150 
4DG16160 
m0G616170 
M0616180 
40616190 
w0616200 
40616210 
40616220 
m0616230 
MUG16240 
MDG16280 
#9616260 
40616270 
mO616280 
moG61Se50 
w0616300 
M06163106 
M™5616320 
MUG16330 
MDG6163490 
MD616550 
MDG616360 


MMD GENES ATOR 


00110a1 
00110cI 
0011101 
0011141 
0011181 
00111C1 
0011201 
001124i1 
0011281 
00112aI1 
00112E! 
0011321 
901136! 
0031341 
00113E1 
0011421 
0011442 
00314a1 
00114cT1 
0011501 
6011541 


001158! 
00115cI 
0011601 
001164! 
6611681 
00116cI 
6074791 
0011741 
GOLL7SL 
00117cI 
0011601 
0011841 
0011881 
00118cI 
OOL1I8EI 
0011921 
0011961 
0011981 
60119CI 
0011A0T 
0011A2T 
GO1LAGI 
OO11AATI 
GO011ACI 
0011801 
0031841 
0011881 
00118cI 


0382 
4080 
0382 
4020 
£650 
£660 
4130 
5830 
0253 
5800 
58E0 
4136 
4040 
4136 
&840 
2238 
4130 
4130 
4300 
c8oo 
4300 


0000 
5030 
4138 
4830 
4030 
4630 
4030 
4U80 
4830 
4030 
4880 
D320 
4020 
4820 
9842 
0330 
p234 
2641 
0330 
p23y4 
2641 
0330 
D234 
2628 
c520 
4330 
4840 
4842 
4840 


8FA7 
S0F2 
8F9E 
8F88 
BE4C 
8E7B 
#152 
90AC 


8D9E 
8D09E 
873C 
9006 
8138 
90CE 


8010 
8884 
a576 
4432 
8ABB 


11581 


907C 
8864 
909C 
8F3Cc 
9096 
8F36 
aF34 
8F24 
9086 
8F1E 
EECE 
9078 
SF14 


aDNG6 
8F16 


BOCD 
aF0c 


B0C4 
BF02 


0100 
8040 
8EEC 
BEFY 
BEES 


06-1 77FO2RO04Kh514013 
70020831 1637 
=0022021 1638 
=0020B21 1639 
sOO2UAUY 1640 
=Q01F68] 1641 
=001F 981 1642 
=0012761 1643 
sO002104% 1644 
1645 
=GO01ECCI 1646 
sO01ED0T 1647 
=0018721 1648 OTRIP 
=0022101 1649 
=0012761 1650 
20022101 1651 
1652 
=0011581 1653 
20019007 1654 
=0016c07 1655 
1656 CREAER 
2001C191 1657 
1658 x 
1659 * 
1660 x 
1661 «x 
1662 « 
1663 DTRDON 
=0¢021D8I 1664 
=O0019C4I 1665 
=0022001 1666 
=O0020A4I 1667 
=002202I 1668 
z0020A61 1669 
=0020a87T 16706 
=00209cI 1671 
=002202T 1672 
=00209¢1 1673 
=~00004AT 1674 
=0022001 1675 
=O0020A07 1676 
1677 
=O001F 681 1678 
=0020ACI 1679 
1680 
=O01F69I1 1681 
=O020ACI 1682 
1683 
=O01F6AI 1684 
=0020ACI 16865 
16a6 UpDTOR 
1687 
=OO11F 4! 1688 
=0020A4T 1689 
=002Ug0) 1690 
=O0020A8I 1691 


LB 
STH 
LB 
STH 
LDAI 
LOAT 
BAL 
LDA 
BNZR 
LDA 
LOA 
BAL 
STH 
BAL 
LH 
B2s 
BAL 
BAL 


B 
LHI 
B 


( 
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R8eDIRECT+7°R2) 
R8&,HEAD 
R8,DIRECT+6(R2) 
R2-eDIRPRM+4 
R5.PDB 
R6-PO0Be51 
R3,AVAILO 
R3sCPYFLG 
R3 

RD»LOW 

RE HIGH 
R3,STBKAD 
R4 eCUMAXCYL 
R3eAVAILO 
R4eCUMAXCYL 
OTRIP 
R3,D0TRDON 
R3,ZSEQ 
PEoJ 
RO,C*D2e 
ERROR 


15813357 11/13/81 


GET THE HEAD # FROM THE DIRECTORY 
GET THE SECTOR # FROM THE DIRECTORY 


SET UP TO WRITE THE P18 
TO THE DISK ROY 
GET THE COPY FLAG - SFT 7 

YES = COPY RETURN 

LOAD START ADDRESS 

LOAC END ADDRESS 

GET BLOCK AnDRESSES 


WRITE 


AT THIS TIME THE oYTRECTORY MUST BE UPDATED 


1. THE SEQUENCE NUMBER MUST BE STORED IN THE OIREcTORY 


2e THE CURRENT SECTOR: HEAD AND CYLINDER MUST RE STORED IN 
THE NEXT BLOCK, 


Eau 


* 

R3,DTOGNE 
R3.LOKOUT 
R3eCYL 
R3,NXTPRM 
R3,HEAD 
R3yNXTPRH+2 
RA «NXTPRM+4 
R3OIRPRM 
R3,.HEAD 

R8 OIRPRM+2 
R2S0D 

R2«eCYL 
R2-DIRPRM+4 
R4,R2 
R3,SEQNAm 
R3eDIRECT (RY) 
RGel 
R3eSEQNAME1 
R3eDIRECT(RY) 
R4,1 
R3,SEQNAM+2 
R3eDIRECTIRY) 
R2,8 
R2—X*"i008% 
NEEONW 

RY eNXTPRM 

R4 DIRECT+4(R2) 
R4 eNXTPRME4 


SAVE THE ADORESS 

LOcK THE OUTPUT DEVICE 
SAYE THE CuRRENT 
CYLINDER 

HEAD 


SECTOR 

RETRIEVE THE OITRECTROY PARAMETERS 
HEAD 

SECTOR 

GET START 

CYLINDER 

DIRECTORY INCREMENT 

COPY INCREMENT 


STORE THE 
SEQUENCE 

NUMBER 

IN THE OYRECTORY 


NO = BUMP POINTER To NEXT BLOCK 
> 100 

YES - NEED ANOTHER SECTOR 

NO 

STORE NEXT AVAIL. SECTOR 


MDGi6370 
MDG16380 
“0616390 
MDG16400 
0616419 
MDG16420 
M0616430 
M0G16440 
M0G616456¢6 
§DG164%60 
MDG16470 
MO0G164%860 
MDG6164990 
“0616500 
mDG16510 
MDG16526 
40616530 
MDG1i6540 
40616550 
0616566 
M0616570 
4DG16580 
M0616590 
MD616600 
MOG15610 
40616629 
MOG16639 
MD616640 
MDG16650 
MDG16660 
M0G16670 
MDG166890 
m0616690 
616700 
MDG616710 
MDG16720 
MOG16730 
MUG16740 
MNG16750 
“0616760 
MDG16770 
MDG616780 
MDG16790 
M0616800 
“0616810 
MIG16820 
mDG16830 
M0G616640 
MUG16850 
MD616860 
hiDG16°070 
MUG16989 
M0G616890 
40616900 
M0616910 


MMO 


oc011colr 
6011C4. 
o0011C6! 


0011CCI 
0011001 
0041D41 
0011D8! 
00110c! 
0011601 
*0011E21 
0011F6I 
O011FA1 
O011FEI 
0011F2I 


0011F4I 
0011F 81 
OO11FCI 
00,2001 
0012047 
0012081 
*00120AT 
00120E1 
0012121 


0012161 
0012181 
00121CcrI 
*0012201 
0012221 
001226! 
*9012281 
00122cI 
0012301 


- 0012347. 


0012361 
00123ar 
00123E1 
004 242aT 
001246] 
00,24aT 
00124cC1 
00124K4E1 
0012521 
*0012541 
0012581 
00125cIr 
0012601 
0012621 


~ 001266! 


0012641 
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R&,DIRECT+6(R2) 


R4 NXTPRM+2 


R4 DIRECT+7(R2) 
* 


R3eFRSRwW 
R3.WOFT 
RA,.SEEK 
R3,FRSRwW 
R5.DIREcT 
R6eR5S 

RG X'FES 
R3WOFT 
R3,WOISC 
R3,DTDONE 
RZ 

x 
R3eFRSRwW 
R3,WOFT 
RA,SEEK 
R3.FRSRY 
RS5eDIREcT 
R6eR5 

RE, X°frs 
R3,WDFT 
R3,WDIS¢c 


15313357 


GET ADDRESS 


RETURN 


WRITE 
OIRECTORY 


TO THE DIS 


—_ we 


* GET NEXT SECTOR OF OIRECTORY AND LINK IT 
INCREMENT SECTOR 


RBel 


R3eCUTRKDEN 


R68 SECTAB(R3) 


NEDNW1 

RS DIRECT 
R6eR5 

R6 X*FFe 
R3,WOFT 
R3eROISe 
R2-8 
UPOTOR 
R2,HEAD 


R2,HDTAR (RS) 


PEQJ 
R2el 
R2,HEAD 
R8.eRS 
R5.OIRECT 
R6eRS 
R6eX'FFe 
R3,WDFT 
R3,RDISc 
R2,8 
UPDTDR 
RGeC*Duse 
ERROR 


LoaD 


11/13/81 


ANY SECTORS LEFT 


NO 


READ Osc 


MAXIMUM? 


READ OIsc 


REESE EERE REE KEE RE EE EREEE ES ERED ERK EERE KER EREEEERS SEE KEEEREEERERE EE 


GENERATOR 06-177F02R04M91A13 
0242 BEEE =0020Be! 1692 sTB 
4840 BEDE =0020A6I 1693 Li 
0242 sEE7 =602083I 1694 STB 
0000 11¢Cc1 1695 STOROR eau 
4130 8840 =O01A101 1696 BAL 
4130 pB0,q =0019DEI 1697 BAL 
DEAG 8607 =G018AFI 1698 oc 
4130 8834 =001A10I 1699 BAL 
E650 aEcc =9020AcrI 17908 LDAI 
0865 1701 LOAR 
CA6O OOFF 1702 AAI 
41360 B7Fu =0019DEI 1703 BAL 
4130 9332 =00152UIr 1704 BAL 
5830 S8FEG& =0021D8I 1705 LDA 
0303 1706 BR 
0000 11°41 1707 NEEONW EQuU 
4130 3818 =001A10y7 1708 BAL 
4130 A7E2 =001L9DE1 1709 BAL 
DEAO B6AF =0018AFI 1710 oc 
4130 8a0c =001A101 1711 BAL 
E650 BEAY =0020acI 1712 LOA 
0865 1713 LOAR 
CA60 OOFE 1714 AAT 
4130 a7CcC =0019DEI 1715 BAL 
4130 930q 20015201 1716 BAL 

1717 
2681 1718 AIS 
4830 SFF2 =00220¢F1 1719 LH 
4583 F344 -0005641 1720 CLH 
2330 1721 BE 
F650 BE86 =0020acI 1722 LDAI 
0865 1723 LDAR 
CA60 OOFF 1724 AAI 
4130 S7AE =0019DEI 1725 BAL 
4130 g2€6 =00151AI 1726 BAL 
2528 1727 Lcs 
4300 FF7O =O01L1AAI 1728 8 
4620 8FC4 =002202T 1729 NEDNW1 LH 
4523 F330 =000572I 1730 CLH 
4330 847A =0016C0I 1731 BE 
2621 1732 AIs 
4020 aFRe =00220ar 1733 STH 
0788 1734 XAR 
£650 BESA =0020ACI 1735 LOAL 
0865 1736 LDAR 
CA60 OOFF 1737 AAT 
4130 8782 =0019DEI 1738 BAL 
4130 32284 =001514T 1739 BAL 
2528 174s LCs 
4300 FFG =0011AAI 1741 8 
C800 4434 1742 NUMTHERE LHI 
43Y0 g9a2 =001C197 1743 is} 

1744 

L745 «x 

i7&e x 


x 
¥* 


M0G16920 
40616930 
M0G16940 
M0G16950 
“#0616960 
MDG16970 
m™0G16980 
MD616990 
MDG1i7UCO 
“0617010 
MO617020 
MDG17U30 
MOG17040 
40617650 
40617060 
0617070 
mD0617080 
MDG17090 
MDG17100 
40617110 
M0G17120 
"0617130 
MDNS1714a9 
M0G617150 
40617160 
40617170 
“O0G17160 
M0G17190 
M0G17200 
40617210 
mnG17220 
MOG17230 
MDG17240 
40617250 
mMD0G17260 
M0G17270 
“DG61728G0 
MO0G17290 
MCG17300 
406175106 
40617520 
m0G17530 
MOG17340 
MOG17350 
40617360 
MOS17570 
40617380 
MO0G617390 
4D617400 
MDG17410 
MoG17420 
mDG617430 
MOG1IT440 
MOG17450 
MDG17460 


MMOD GENES ATOR 06-177F02R04A91A13 


00126e1 
0039701 
0012741 


601276! 
0012781 


00127cI 
UU12801 
001284I 
0012881 
00128acI 
0012901 
#0012941 
064296! 
00129aI 
00129F1 
0012A21 
0012A61 
GG12AAI 
ooreacl 
0012501 
00128eI 
0012B6l 
*O012BAI 
00125cI 
0012REI 
6o12c21 
GCO1ec4! 
COyecal 


0000 
242F 
4020 
2304 
oOGO 
0000 
2420 
4020 
g000 
5030 
4130 
DEAG 
4130 
4840 
4564 
233F 
4130 
4136 
4830 
c330 
4330 
2681 
4584 
2030 
4830 
4534 
2337 
2631 
4030 
0788 
43U0 
4830 


126E1 
aFAC =0022207 


12761 
12761 


BFA4 -0020207 
127CI 

8F64 =O02Z1E4I 
875A =0019DEI 
8627 =0018AFI 
8784 =O001A10I 
BF7E =O0220cy 
F2D0 =Vv005641 


8744 =0019DEI 
8798 =O01A35I 
8F52 =0021F4I 
0020 

8042 =0012ECI 


F2B4 =0005641 
BF4C =002202T1 
F2B8 =0005721 
aF4O =002202T 


FFCE =0012961 
BF34 =0022U0T 


1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1789 
1781 
1782 
1783 
1784 
1785 
1786 
17a7 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1739 
1800 
1804 


* AVA 
* 
x AVA 
* 
* THIS 
* DIsc 
* NEXT 
* 
* 
x 
* 
* 
* 
* 
x 
* 
* 
4 
* 
* 
* 


* 


KAEEEEKESEEAKKEREKERKESKAKEKSE KEKE SEERA E KEES KAKKEEKEAKAKEEES EERE EKEEKKE 


AVAILR 


AVAILO 
AVAILW 


AVALLI 


AVAILS 


AVAILY 


AVAILGA 


AVAIOG 


IF A READS= BUFFER AREA SPECIFIED BY R5 & R6& = DATA READ 


EQU 
LIS 
STH 
BS 
EQu 
EQuU 
LIs 
STH 
EQu 
STA 
BAL 
oc 
BAL 
LH 
CLH 
BE 
BAL 
BAL 
LH 
THI 
BZ 
AIS 
CLH 
BNES 
LH 
CLH 
BE 
AIS 
STH 
XAR 
B 
LH 


( 


PAGE 33 15213557 11/13/81 


* 
R2,15 
R2.AVAFLS 
AVALLi 

* 


x 

R2,0 
R2eAVAFLG 
x 


R3.AVARTH 
R3,WOFT 

RA, SEEK 
R2eFRSRW 
R4eCUTRKDEN 
R8sSECTAB(RY) 
AVAILGA 
R3eWDFT 
R3,RCHK 
R3eCONSTA 
R3ZeX*20" 
AVAIL1 

RG, 
R8eSECTaB(RG) 
AVAIL4 
R3,HEAD ; 
R3,HOTAR( RY) 
AVAIOO 

R3el 

R3eHEAD 
R8.R8 

AVAIL4 
R3,CYL 


I LR 
IL WwW - = (CAVAILO) 
ROUTINE WILL READ OR WRITE A PROGRAM 3LOCK FROM THE 
AND WILL RETURN WITH SECTOR=HEAD-CYLINDER UPDATED TO THE 
SECTOR. 
INPUT = R3 = RETURN ADDRESS 
R8&8 = SECTOR TO BE READ 
CYL = CYLINDER TO BE READ 
HEAD = HEAD TO BE READ 
R5 = START ADORESS OF THE BUFFER 
R6 = END ADDRESS OF THE BUFFER 
OUTPUT: R5 = SAME 
R6 = SAME 
R&S = NEXT SECTOR 
CYL = NEXT CYL (IF NEEDED) 
HEAD = NEXT HEAD (IF NEEDED) 


INDICATE READ 


INDICATE WRITE 


MAXIMUM 7 
NO 


READ CHECK THE SECTOR 
IS THIS SECTOR 
DEFECTIVE 

NO 

NO - GET ANOTHER SECTOR 
ANY ON TH S TRACK 7? 


LOAD HEAD 
MAXIMUM 

NO 

YES 

INCREMENT HEAD 
ZERO SECTOR 


GET NEXT CYL # 


* 
* 
“ 
* 
* 
* 
x 
* 
* 
xx 
* 
* 
* 
* 
* 
x 
* 
% 
* 
* 
* 
¥ 
* 


MUS17470 
MDG174%80 
MOG17490 
MO0G17500 
MCGiT7310 
MDG17520 
“0617530 
MDG27540 
MO617550 
MDG17560 
MOG17570 
MOG17580 
M0617590 
40G17600 
MUG17610 
MDG617620 
m0617630 
MOG1I7640 
“0617650 
™DG17660 
MDG17670 
mDG17680 
MDG17690 
m0617700 
MDG17710 
MO0G17720 
MOG17730 
mDG17740 
mM061775¢ 
m0G17760 
MDG17770 
M0G17780 
“DG17790 
mDG17800 
M™0G17610 
40617820 
MOG17830 
MDG17840 
40617850 
MDG17560 
0617870 
45617680 
MDG17890 
MDG17900 
MDGI7910 
MDG17320 
MOG17930 
MDG17940 
M0G17950 
40617960 
MO0G17?70 
MDG17980 
M0G617996 
mDG18¥00 
M0G18410 


MMD GENERATOR 


o01sccl 
co1ecel 
0012021 
0012041 
o012np4l 
O0120AI 
0012ne1 
0012£a1 
00,2541 
0012€al 


0012ECI 
0012FOI 
0012F 21 
0012F6I 
QO12FAI 
q012FCcI 
0043001 
001304! 
0013061 
0013041 
00130cI 


AN«zeaanyT 
VwVLOLV SG 


0013141 
*0013181 
OO131AI 
00131CI 
0013201 
0013221 
0013261 
00132AI 
00132cI 
0013301 
0013321 
0013341 
0013381 
00133cI 
0013401 
00,3421 
0013461 
00134Al 


2631 
4534 
2186 
2335 
céio 
435uU0 
4030 
0788 
4080 
4300 
0000 
4830 
2336 
4130 
4130 
2305 
4130 
4130 
268) 
4584 
2333 
4300 


uRin 
sow 


4534 
2337 
2631 
4030 
0788 
4300 
4830 
2631 
4S34y 
2186 
2335 
c8io0 
4300 
4030 
0788 
4080 
5830 
0303 


FOSC s00032ET 


n0EC 
a9F6 =001CD04I 
aFig =0022007 


BF1A =0022Var 
FF94 =0012807 
12ECI 

8F30 =002220T 


86E6 =0019DE1 
e220 =00151Ar 


BENE =0019DEI 
821C =0015207 


F25a =0005641 


8036 =001346! 


Cee jf nAaoana 
8EEE =Soe2fet 


F25a =0005721 


sEE2 =002202T 


g020 =0013461 
BENG =0022007 


EFFE =00032EI1 
O0EC 

9398 =001CD4y 
gEcO =0022s00T 


BEBC =00220e7 
BE9A =0021E4T 


1802 
1803 
1604 
1605 
1806 
1807 
180e 
1609 
18,90 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 


wan 
aVCETF 


1825 
1826 
1827 
1828 
1829 
1830 
1631 
1832 
1833 
1634 
1835 
1836 
1837 
1838 
1839 
1640 
1841 
1642 
1843 
1644 
1645 
1846 
1847 
1848 
1849 
1850 
1851 
1652 
1853 
1854 
1855 
1856 


C6-177FO2R04MS1A13 


AVACON 


AvAIL1 


AVAWRT 


AVACTN 


AVANCY 


AVACY1 


AVAENO 


BR 
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R3el 
R3eCYLTAB(R4) 
AVACON 
AVACON 
R1iX'Ere 
ERRA 
R3,.CYL 
R&.R8 
R8,HEAD 
AVAILS 

x 
R3,AVAFLG 
AVAWRT 
R3eWDFT 
R3eRDIS¢ 
AVACTN 
R3,WOFT 
R3.WOISc 
R8el 
R&sSECTABIR4Y) 
AVAIL6 
AVAEND 


Mz WEAR 
WS ghremAu 


R3eHOTAR( RG) 
AVANCY 

R3,1 
R3,HEAD 
R8&,R8 
AVAEND 
R3,CYL 

R3,1 
R3,CYLTaB (RY) 
AVACY1 
AVACY1 
RieXtEce 
ERRA 

R3eCYL 
R8.R8 
R8&eHEAD 
R3.eAVARTN 
R3 


15si3siS7 11713781 


VALID 7? 

YEs 

YES 

NO = ERROR 

PACK FULL 

SAVE NEW CYL VALUE 
ZERO SECTOR 

ZERO OUT HEAD 

60 SEEK 


READ OR WRITE 7? 
WRITE 


READ 
CONTINUE 


> MAX ? 

YES 

NO = RETURN 

INC. THE HEAD IF possrale 
MAXIMUM? 

NOT POSSIBLE 

SET THE HEAD 

TO 1 

SET SECTOR TO ZERO 


GET THE CYLINDER VALUE 


VALID ? 


Pack FULL 


SAVE THE NEW CyLINOER 
ZERO OUT THE SECTOR 
ZERO OUT THE HEAD 
GET THE RETURN ADDRESS 


HRERKEE KATE EEE EREREE AK SE EEKSEEREERE EEL ARREREKE ERAKEREKREREKEEETAEEKERAER EK 


+ eee HH KH HHH HH OH 


uPOTPT 


INPUT: R3=RETURN 


OUTPUT: LOCATION 


ADDRESS 


THIS ROUTINE WILL RETURN THE BISC PARAMETERS(CYL= Head -SECTOR) 
FOR THE PROGRAM NUMBER IN THE INDEV LOCK WORD. 


“DCOPY" = SECTOR 
“DCOPY+2H 
"DCOPY+4™ 


= HEaD 
= CYL 


* eR RHRKRER MK HK HH HR 


MHG18020 
woe ts03o 
MDG18046 
m0G618050 
“0618060 
M0G18070 
m0G618080 
“0618090 
MDG18100 
M0618110 
mM0618l2c¢ 
MDG18130 
MOG18140 
40618150 
40616160 
40618170 
M0618180 
40618190 
mM0618200 
M0G18210 
m0618220 
m0G18230 
mne1a8200 


we ae 


40618250 
M0618260 
40618270 
40616280 
0618290 
406163500 
40618310 
M0618320 
40618330 
M0G1854q 
M0618550 
40618360 
40618370 
M0618380 
40618390 
M™0G618400 
M0G18410 
M0G18420 
mO0G184%306 
mp618480 
MDG184%56 
M0618460 
MD0G18470 
0618480 
M0G18490 
40618500 
MDG28510 
m0G18520 
M0G618530 
m0618540 
MDG18550 
MO0G18560 
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v0134clI 
UU135012 
00,3541 
6613581 
j°135cl 
00135e1 
0013621 


0013661 
0013681 
o0736clI 
uU13701 
0013741 
6013738! 
00137cI 
oco1380l 


0013841 
00343881 
90138cr 
0013901 
0013921 
0013961 
00139a1 
60139¢cI 
OUZZACI 
O013A41 
0013A8I1 
0013acI 
0013801 
C013B41 
0613Bal 
0013BaI 
CO13BE1 
0043c01 
0013c41 
0013Cal 
0013cCcI 
0013p01 


0000 
56036 
41350 
4820 
c520 
2135 
C810 
430 
0000 
2435 
4030 
4830 
4030 
D330 
0230 
4840 
4300 


0000 
5030 
4826 
C526 
0333 
4130 
2430 
4030 
4830 
4U30 
5330 
p230 
4840 
0330 
4030 
2430 
4U30 
U768 
4130 
DEAO 
4130 
£650 
08465 


134CI 


BEAU 
B4A6 
8B94 
FFFF 


00EB 
896E 


13661 


aEBa 
837C 
8E7C 
8B76 
BE7TE 
BEGS 
s02C 


13841 


sE4se 
6BSC 
FFFF 


83EC 


8E82 
8B48 
BE4&C 
BBY 
BE4E 
8E14 
EC96 
8E4a 


BE44 


B6148 
a4E7 
6644 
aCDC 


=0021D01 
=OO17FATI 
=O01EECT 


=001CD4T 


=00221E1 
=QO1EECI 
sO0021F UT 
=QOLEEEL 
=0021F2I 
=0021C6I 
=0013B0I 


20021001 
=O01EE8I 


=0017821 


=00221E! 
=OC1EESBI 
=0U21F UI 
=OO1EEATL 
=O0021F 21 
=0021C4I 
=00004,T 
=0022U0T 


=0022U2aT 


=9019DEI 
=OO18AFI 
=U01A1UY 
s0Qevacl 


1857 
1858 
18659 
18660 
1861 
1862 
1863 
1664 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1889 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1696 
1897 
1898 
1899 
1900 
1904 
1902 
1903 
1904 
1905 
1906 
1907 
1904 
1909 
19410 
1911 
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15213:57 11/13/31 


KEREEKF AREA EARREKEKEECHKKKE HEELERS ERE REKE EERE KEKE EAKEE KG EEK EREKEKERE CX 


upOTPT Eau * 
STA R3,UPOTRN 
BAL R3eLIDAD 
LH R2ePGMIPN 
CLHI R2,X*FFEF® 
BNES UPPTi 
LHI R1iX*EBe 
B ERRA 

uePT1 £QuU * 
LIs R3e15 
STH R3,UPDFLG 
LH R3.PGMIPN 
STH R3,PGMUPN 
LB R3ePGMIPN+2 
STs R3-ePGMUPNS2 
LH R4&, TRKOENG2 
B UPDCOM 


SAVE RETURN 
LOAD INPUT ADDRESSES 


Is IT LOCKED ? 
NO 
YES - ERROR 


SET THE UPDATE FLAG 


BRANCH TO COMMON 


EKKEEERKKKEK EK SE KKKAEKE ST SKEET EKREKEKEKEACKERESKKEKKERE RARER KEKE EERE EREEKE SE 


UPDT XxX 


THIS ROUTINE WILL UPDATE THE 


IS PERFORMED FROM OTHER THAN 


INPUT3 R3 = RETURN ADDRESS 


ee NMR HHH HH HOH 


* 


UPDTXX EQU * 
STA R3,UPDTRN 
LH R2.PGMOPN 
CLHI R2.X*FFEF?® 
BER R3 
BAL R3,LO0AN 
LIs R3,0 
STH R3,UPDFLS 
LH R3ePGHOPN 
STH R3+PGMUPN 
LB R3.PGMOPN42 
STs R3,PGMUPN+2 
LH R4.TRKOEN 

uUPDCOM L8 R3,S0D 
STH R3eCYL 
LIs R3,0 
STH R3,HEAD 
XAR RBeRS 
BAL R3.WOFT 
oc RA, SEEK 
BAL R3,FRSRW 
LDAI RS,OIRECT 
LDAR R6eRS 


THE ENTIRE DIRECTORY FROM THE OUTDEV LOCK WORD VALUE 
IS ZEROEO OUTe USED FOR WRITE EOV AND WHEN COPY OR CREATE 


OUTPUT: NONE OTHER THAN THE UPDATED DIRECTORY. 


DISC DIRECTORY AS FOLLOWS: 


EOV. 


ee OHH He HH HH HH 


EKERLEKKEEEAKAAEDLAAAEKE RARER KERR REE EAE S SHEE EEA ERES EK ERK EKEEKERECERE ES 


SAVE RETURN 

GET THE LOCK WORD 
IS IT LOCKED 7? 

YES - RETURN 
DIRECTORY 

SET THE FF. BF FLAG 


GET START 

SET CYL To START 
CLEAR 

SET HEAD To ZERO 
SET SECTOR TO ZERO 
SET UP FILE 

SEEK 

WAIT 


MOG18570 
MDG6185869 
m0618590 
M0G618600 
40618610 
40618620 
M0G1863-, 
MOG18645 
MDG18650 
MDG18660 
M2G618670 
“0618680 
40618690 
m0618700 
40618710 
45618720 
MDG18730 
MOG1874g 
MOG18750 
MDG18760 
M0618770 
aDG18760 
™DG18790 
MDG18800 
m0G188610 
MDG618820¢ 
“0618830 
m0G618840 
40618850 
406185860 
40618870 
mDG188a0 
06189390 
M0G18900 
m0G618910 
MNG618920 
MUG18930 
™0G618940 
MUG18959 
466187960 
M0G18970 
406183980 
MDG618990 
40619000 
M0619910 
MiG19U30 
MOG19U30 
mMO0G19040 
MDG19U50 
MUG19060 
4uvv19070 
MDG19U80 
MDG19U90U 
40619100 
MOG19110 


ne aa esseeenipisibensmiitmiprincaemnasaemeteciauehciaceciemme chine 


MAD 


*001302I 
0013061 
0013D0AI 
0O13DEI 
O013F21 
001366. 
Co1seal 
0013EcI 
0013F0I 
0013F2I 
0013F6I 
OO1L3FAI 
0013FCI 
007 400T 
0014041 
0014061 
00140a1 
o00140cI 
0014101 
uo1412I 
0014141 

*0014181 
00141AI 
CO1L4G1EI 

*0014201 
O074241 
0014281 
0014acI 
0014301 
0014341 

*0014381 
00143aI 
00143cI 


_001440F 


0074421 


O014461 
00744al 


O07, 44ET 
0014521 
0014561 
0014581 
90145cI 
0014601 
0014621 
0014661 
0014681 
00146cI 
OO146EI 
0014701 
C014741 
*0014761 
0014741 
OO147EL 


GENERATOR 06-177FO02R04M91A13 

CA60 OOFF 1912 

4130 8604 =0019DFI% 1913 

4130 913C =001S1AI 1914 

C830 EEEE 1915 

45360 BCCE =0020ACr 1916 

2335 1917 

C810 ODEO 1918 

4300 gafy =001CD4I 1919 

0722 1920 upOTxi 
4832 8CB6 =0020ACI 1921 uUpoTx3 
4530 SDF6 =0021F9I 1922 

2138 1923 

0332 BCAE =0020AEI 1924 

0310 s0FE =0021F2I 1925 

9531 1926 

4330 BO44 =O001L44ET 1927 

2628 1928 upDTXx2 
C520 0100 1929 

203F 1930 

2681 1931 

4564 F14cC =000564!I 1932 

233¢ 1933: 

E650 g8Cee =0020ACI 1934 0 =uUpDTXx5 
0865 1935 

CA60 OOFF 1936 

4130 98586 =00190EFI1 1937 

4130 BO0EE =00151AI 1938 

4300 erFcO ~O0135F0I 1939 

4820 aDce 20022027 1940 uypOTx4 
4524 F13A 20005721 1941 

2337 1942 

2621 1943 

4020 gDc2 =00220eT 1944 

0788 1945 

4300 FFOU =001414I1 1946 

0000 14467 1947 UPDTXM 
C810 GOEB 1948 

4300 8886 =001CD4I 1949 

0000 144EI 1950 UpFIND 
4810 adcc =00221E1 1951 

4239 8062 =0014B8I 1952 

241lo 1953 

4012 gC50 =0020ACI 1954 

D212 eC4E =0020AET 1955 

2628 1956 

C520 0100 1957 uUpFINI 
2335 1958 

D212 8C40 =0020ACI 1959 

2621 1960 

2206 1961 

£650 aC38 =002UACI 1962 uUPXWBL 
0865 1963 

CAGO OOFF 1964 

4130 9560 =0019DEI 1965 

4136 B09F =6015201 1966 
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R6eX*FFe 
R3,WOFT 
R3,ROISc 
R3,X°EEEE® 
R3,OIRECT 
UPOTX1 
R1eX*EOe 
ERRA 

R2,.Re] 
R3eOIRECT(R2) 
R3,PGMUPN 
UPOTX2 
R3eDIRECT+2°(R2) 
R1 »ePGMUPN+2 
R3,R1 

UPFIND 

R2,8 
R2eX"100° 
UPOTX3S 

RO,i 
R6,SECTAB(R4) 
UPOTX4 
R5.DIREcT 
R6,R5 . 
R6eX*FFe 
R3eWOFT 
R3,RDISc 
UPDTX1 
R2,HEAD 
R2-HOTAR(R4) 
UPDTXM 

Reel 

R2,HEAD 
R&,R8 
UPDTXS5 

* 


R1ieX*EBe 
ERRA 


x 

R1eUPDFLEG 
UPDTP1 

R10 

Ri »DIREcT(R2) 
R1DIRECT+2(R2) 
R2,8 

R2eX* loot 
UPXWBi 
R1,DIRECT(R2) 
R2ei 

UPFINI 

R5 ,.OIREcT 
R6&.R5 

R6eX' FF? 
R3,WOFT 
R3,WOISc 


GO READ 

IS THE FIRST BYTE 
X*EEEE* 7 

YES OK 

NO 


GET THE NUMBER FROM THE OIRECTORY 


NO 
YES = ARE THE THIRD OrGITS = ? 


YES MATCH 

BUMP POINTER 

MAX 2 

NO 

YES ~ BUMP SECTOR 
MAXIMUM? 

NO 

YEs 


READ NEXT OIRECTORY 


MAXIMUM? 
NO = MATCH 


SET HEAD To +1 
ZERO SECTOR 


NO MaTCH 


GET FF/BF = UPDATE FLAG 


ZERO OUT NUMBER BuT LEAVE 


SECTOR POINTER 


ZERO ALL REMAINING DIRECTORYS 


STORE THE DIRECTORY BaCK ON 
THE PACK. 


40619120 
40619130 
m06191240 
40619150 
m0G619160 
M0G1917¢ 
MO0G191890 
M0619190 
mM0G619200 
M06192106 
40619220 
40619230 
MEG19240 
MDG619250 
M0G619260 
MD0G19270 
MDG19280 
46619290 
MDG619300 
MDG1959190 
MD619520 
MDG19330 
mNG19340 
MD619350 
MDG19360 
40619370 
m0G619380 
MDG619390 
40619400 
MDG1941256 
40619420 
40619430 
m0619440 
MDG194%56 
M0G619460 
MUG19470 
MDG6194%80 
60619490 
MD619500 
MD619510 
MDG19520 
MDG19530 
MDG19540 
0619550 
MUG19560 
m0619576 
m0619580 
MDG19596 
40619600 
m0619610 
MDG19620 
M0G1i9630 
M0G19640 
MG6619650 
MDG19660 
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0014821 2420 1967 LIS R2.0 ARE THERE moRE SECTORS TO MDG19670 
0014841 2410 1968 LIs R10 ZERO OUT. MDG19680 
QU14S6I 0212 8C22 =0020ACI 1969 UPpFIZF sts R1+sOIREcT(R2) MDG19690 
C014a8AI 2621 1970 AIS R2,1 MO0G19700 
00148cI C520 0100 1971 CLHI R2eX*1008 M0G19710 
001490I 2035 1972 BNES UPFIZF M0G19720 
0014321 2681 1973 AIS RBel DIRECTORY IS FULL OF ZEROES “DG19730 
0014941 4584 FOCC =0005641 1974 CLH RB&sSECTAB(RY) MAXIMUM? M0G19745 
0014951 4230 FFD4 =0014701 1975 BNE UPXWB1L NO MDG19756 
00149cCI 4830 8062 =0022021 1976 LH R3sHEAD ALL SECTORS ARE ZERO MO0G19760 
OO14a0I 4534 FOcE 20005721 1977 CLH R3eHDTaRB(RS) MAXIMUM? MDG197706 
*OG14A4I 2337 1978 BE UPFIEN YES M0619780 
O014A61I 2631 1979 AIs R3e1 NO 40619790 
O01GRST 4U30 8055 =00220er 1980 STH R3,HEAD DO NEXT HEAD M™DG19400 
NO14ACI 0788 1981 XAR R8,R8 MDE19810 
OOquatl 4300 FFBE =0014707 1982 B UPXWB1 40619820 
001482I 5830 aDin =0021D0r 1983 upFIEN LDA R3.UPDTRN m0G19830 
0014861 0303 1984 BR R3 MUG19840 
0000 14881 1985 wUPpDTP1 EQu * m0G619650 
00148al 4080 scFO =0027ACI 1986 STH R&-.DCOPY STORE SECTOR M™0619860 
0014eCcI 4880 BDK2 20022027 1987 LH R8&+HEAD. , MD619870 
0014COI 4080 BCEA =0021AEI 1988 STH R&-OCOPyY42 STORE HEAD MOG619880 
0014C4I 4880 8038 20022007 1989 LH R8,CYL MD619890 
OOyycal 4980 acey =0021B97 1990 STH RB,DCOPYs4 STORE CYL 40619900 
0044CCI 4026 eCE2 =0021B621 1991 STH R2,0COPy4+6 STORE POINTER M0G619910 
0014001 220F 1992 BS UPFIEN RETURN M0619920 
1993 * THIS ROUTINE WILL COVERT THE ADDRESS In DCOPY TO THE M0G19930 
199% x ACTUAL LOCATION ON THE DYSC OF THE PROGRAM MDG19940 
0000 14p2T1 1995 oOYRPGM FQu * MD0G19950 
0034021 5030 aD12 =0021E8I1 1996 STA R3-DIRPRN SAVE RETURN 0619960 
O014p6eIl 4880 scope =0021ACI 1997 LH R8.OCOPy GET SEcTOR M0G19970 
00140AI 4820 8CDO =0021AEI 13998 LH R2.0Copy+2 MDG19980 
0014D0EI 4020 8020 =002202I 1999 STH R2,HEAD GET HEAD M0G619990 
CO14E2T 4620 8Cca =0021B01 2000 LH R2,0COPY+4 mnG20U00 
00,4€6r 4920 8016 =0022007 2004 STH R2eCYL GET CYL mDG20030 
OOLSEAI £650 SBBE =0020ACI 2002 LOAI R5S-DIRECT 40620020 
OO14EEI 0865 2003 LDAR R6.R5 M0620030 
*O01LGFOI CA60 OOFF 2004 AAI R6,X°FF m0620046 
OO14F4I 4130 B4F6 =0019DEI 2005 BAL R3,WDFT MDG20050 
OO14FBIl 4130 S01E =00151AI 2006 BAL R3,RDISC READ SIRECTORY 40620060 
OO14KFCI 4820 aCpe =0021B21 2007 LH R2eOCOPY+6 GET POINTER MnG20070 
G01500I 4882 8Bac =0020B0y 2008 LH R8+eDIRECT+4(R2) GET CYL m0G29080 
0015042 4080 sCFg =0022uUy 2009 STH = RB8,CYL mOG20090 
00150e8I 0382 8Ba7 =0020831 20410 L8& R8&,DIRECT+7(R2) GET HEAD mDG20100 
00150cr 4080 acr2 =002202T 20131 STH RB&READ m0G620110 
001510I% 0382 8B9E =0020B21 2012 LB R8 OIRECT+E(R2) GET sECToR “DG20120 
001514I 5830 8CD0 =0021F8I1 2043 LDA R3,0IRPRN MD620130 
001518I 0303 2014 AR R3 RETURN MDG20149 
2015 KRKKREEKRERERE KEARSE RK RERAERERAKEREKRER GS BEREKKEREREERESE AE EERERERERE EEE 40620150 
2016 x x m0G620160 
2017 * REAODOSWRITE x MDG20179 
2016 « THIS IS THE COMMON READ / WRITE ROUTINE For ALL MAGNETIC MEDIA * “0620180 
2019 * READ/WRITE OPERATIONS, THE ROUTINE HAS 4 ENTRY POINTS. THE * MDG620190 
2020 + ENTRY POINTS ARE As FOLLOWS? * mD620200 
2021 * * mpG20210 
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2022 « ENTRY POINT OPERATION x  MdGa0220 
2023 * 0620230 
2024 « ROISC THIS ENTRY WILL READ DATA FROM THE *  MD0G20240 
2005 + DISC. THE INPUT PARAMETERS ARE: *  M0G20250 
2026 «= x mMOG20260 
2027 x RS = RETURN ADDRESS *  M0G20270 
2028 « RS = LOW ADORESS OF READ BUFFER x 0620280 
2029 * R6 = HIGH ADDRESS OF READ BUFFER * 0620290 
2030 RA = DrSc ADDRESS *  ™oG620300 
2031 * RB = SELCH ADORESS * 0620310 
2032 « RC = CONTROLLER ADDRESS * M0G20320 
2033 * R8&8 = SECTOR TO BE READ * 0620330 
2034 «* "HEAD" = HEAD WHERE "RS" RESIDES *  MDG20540 
2035 x "CYL" = CYLINDER WHERE "Ren RESIDES * 0620350 
2036 * *  M™D620360 
2037 x wOIsc THIS ENTRY WILL WRITE DATA TO THE «x 0620370 
2038 DISC. THE INPUT PARAMETERS ARE: * 0620380 
20329 «* * 0620390 
2040 x R3 = RETURN aDDRESS *  moG20400 
2041 x R5 = Low ADDRESS oF WRITE BUFFER * mDG620410 
2042 « RG = HIGH ADDRESS OF WRITE BUFFER *x 0620420 
2043 « RA = OISC ADDRESS *  M™DG20430 
2044 x RB = SELCH ADDRESS * #0620440 
2045 +* RC = CONTROLLER ADORESS * MOG6204590 
2046 « R@ = SECTOR TO BE WRITTEN *  MDG620460 
2047 * “HEADY = HEAD WHERE "R8" RESIDES *  M™DG20470 
2048 x “CYL™ = CYLINOER WHERE "RB" RESIDES * mM0G20480 
2049 « * 0620490 
2050 «* RO = WORK REGISTER x 0620500 
2051 « R2 = WORK REGISTER *  ™o620510 
2052 « * M0620520 
2053 « RO = WORK REGISTER *« 0620530 
2054 * R2 = WORK REGISTER * MOG20540 
2055 * *  mo620550 
2056 * WRTPB THIS ENTRY WILL WRITE a BLOCK OF DATA »* #0620560 
2057 TO MAG TAPE OR CASSETTE. THE INPUT * #0620570 
2058 «x PARAMETERS ARE: «x  ™DG20580 
2059 * * MDG20590 
2060 + R3 = RETURN ADDRESS «x  M™DG620600 
2061 * R5 = Low ADORESS OF WRITE BUFFER *  MOG20610 
2062 * R6 = HIGH ADDRESS OF WRITE BUFFER *  MDG20620 
2063 x RA = DEVICE apORESS * 0620630 
2064 x RB = SELCH ADDRESS (IF = 0 "WB" USED)*x  m0G20640 
2065 «* RO = WORK REGISTER * #0620650 
2066 * Ri = WORK REGISTER *  Mo620660 
2067 + R2 = WORK REGISTER *  D620670 
2068 « * 0620680 
2069 * READPB THIS ENTRY WILL READ A BLOCK OF DATA *  M0G20690 
2070 * FROM MAG TAPE OR CASSETTE. THE INPUT x  UG20700 
2071 * PARAMETERS ARE: *  DG620710 
2072 «x * mcsg20720 
2073 R3 = RETURN ADDRESS * 0620730 
2074 « RS = LOW ACORESS OF REAN BUFFER * ¥NG20740 
2075 R& = HIGH ADDRESS OF REad BUFFER * “0620750 
2076 « RA = DEVICE anDRESS *  O0620760 


( 
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0015141 
oo1sicl 
00,5201 
0045241 
6015281 
00152cI 
V0152e1 
0018321 
0045341 
001538! 


00353cI 
UU7540] 
00154a} 
0015661 
O01S4al 
00154F1 
0015521 
GOiS561 
0015581 
06155cI 
00155¢I 


0015621 


001566! 
0015681 
00156CcI 
0015651 
0015721 
QU15761 
GOLS7AI 
60157cI 


601580! 


0320 
2303 
0320 
0220 
5030 
2435 
4U30 
24sF 
4030 
4300 
9000 
£610 
D320 
23u3 
D320 
D226 
5030 
5016 
2415 
4010 
2436 
4030 


OEAO 


08Be 
4230 
2430 
4030 
0330 
5320 
9523 
4330 


SEA3 


8398 
838F 
acoc 
acgu 
BCDA 


8CE4 
80906 


153C1I 


811 
8364 


836D 
ACAA 
8C6A 
8CBA 
aceo 
aCBA 


e344 


8060 
8C96 
alee 
8335 


8022 


2001886! 
=0018B31 
=002204T 
=00218cI 
=00220CI 


=00221cI 
=0015CCI 


=00165CI1 
=9016A8I 


=0018B871 
=0021F8I 
200218cCI 
=0021E01 
=00220cCI 
=00221CI 


=0018AAI 


=0015CCI 
=00220g1 
=0021F8I1 
=0018B871 


=0015A21 


2077 
2078 
2079 
2060 
2981 
2082 
2083 
2084 
2085 
20a6 
2087 
2068 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
219¢ 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2139 
2131 


MRR KHRRHHE HH HH HE HK HHH H 


x 
=] 
~ 
” 
io] 


woISsc 
WRDSC1 


WRTPB 


READPB 
“7COM 


* 
MTRY 


L8 
BS 
LB 
STs 
STA 
LIS 
STH 


R2,OREaD 
WROSC1 
R2eOWwRIT 
R2.eO0IScHD 
R3.WRTENN 
R3,5 
R3,RETRY 
R3,.15 
R3.RWDEY 
OIsc 

* 
R1.MTERR 
R2-MTWRY 
MTCOM 

Re, MTREaD 
R2.MTCMNH 
R3.WRIEND 
R1 eEOVRTN 
R1.5 
R1i-sRETRY 
R3,0 
R3,RWDEY 


RAsOTSARL 


RB,RB 
SELWRT 
R3,0 
R3,.SELERR 
R3.<MTCMN 
R2 MTREaG 
R2,R3 
WALKRD 


RA,R3 


PAGE 39 


OUTPUT 


15213357 13/13/61 


SELCH ADDRESS (IF = 0 "RB" USED)* 
RETURN ADORESS IF A "FM" YS READ«S 
WORK REGISTER 
WORK REGISTER 


ALL THE ABOVE ROUTINE WILL 
RETRY ON A RECOVERABLE ERROR 
AND ABORT ON A NON-RECOVER- 
ABLE ERROR, ALL REGISTER 
VALUES ARE RETURNED AS THEY 
ENTERED EXCEPT FoR REGISTERS 
ROe Riv AND R250 ON A 

RETURN THE DESIGNATED AREA 
SPECIFIED BY R5 AND R6 IS 
GUARANTEED WRITTEN OR READ. 


KEKE SEKEKEEKSEEKRA KEKE TCRERERE EERE AEE EKEKA ERE EERE EEK EKKEKKKEKE 


GET THE READ COMMAND 


LOAD THE WRITE COMMAND 


SET THE RETRY COUNT 


SET THE DISc INDICATOR 


SET THE EO0V SRANCH 
GET THE WRITE COMMAMD 


GET THE READ COMMAND 
STORE THE COMMAND 


SAVE THe Eov BRANCH ADD. 
SET THE WRITE RETRY COUNTER 
To Five 

SET THE MAG TAPE INDICATOR 


SELCH 7? 

YES = BRANCH 

NO = USE WB 

ZERO OUT THE SELCH ERROR FLAG 


GET THE 
GET THE 
IS THIS 


YES 


COMMAND 
READ COMMAND 
A READ ? 


OUTPUT THE WRITE COMMAND 


*x 


eye ek eM HH HE HHH HH OH 


*DG20770 
MDG20780 
HLG20790 
mos20800 
MDGZ06156 
MOG20820 
“DG20839 
éMDG20640 
MO0G20850 
42620860 
“™OG20870 
MDG20880 
D620890 
“0620900 
0620910 
H0G20920 
40620930 
MDG29940 
MDG20950 
mO6G6209606 
69620970 
M0G20980 
#0629990 
40621000 
490621010 
M0G621020 
m0621039 
MD0G21040 
m™06219050 
M0G2106G 
MOG21U070 
MOG21080 
#0621990 
45621106 
40521110 
M2521120 
muG21130 
MO0G21240 
MDG621150 
MO0G21160 
MDG21175 
“™0G21180 
mOG21190 
mouG21200 
m0G21215 
MOG21220 
MOG21230 
MO0G21249 
“0621250 
m0G21260 
Mi G2le7b 
9621285 
MOG21256 
m0G621300 
40621510 


MHO 


0015821 
001584! 
001566. 
001588! 
QALSART 
001S58EI 
0015901 
0015921 
0015941 
001596! 
0015981 
00159AI 
OO15S9ET 
0015A2T 
0015A4T 
0015A6! 
0015Aa!l 
Q015AAL 
oo15ac!l 
0015301 
0015B8aI 
0015B4T 
001586! 
0015681 
00158Al 
0015BCcrI 
0015BEr 


0015CaTr 
0015c4I 
0015CcaI 


0015ccI 
0015D0r 
0015001 
0015DalI 
0015041 


0015061 
0015081 
001508! 


0015DaAl 
0015D0cI 
00,5£01 


O015F4I 
09015£81 


0015ECI 
001,5F0I 
Oo1SF4I 
o015F6l 
0615F8! 


GENERATOR 


0815 
0826 
SDA0 
2081 
NAAS nannn 
2651 
0565 
2286 
0851 
0862 
9DA0 
#270 8024 
4300 8076 
SEAS 
o815 
0626 
SDAQ0 
2041 
DBAS n000 
2651 
0565 
2266 
oB51 
0862 
9DAG 
2173 
4300 8056 


24iF 
4010 BC40 
4300 g04C 


0000 15CCr 


DEBO 62DC 


3425 
3436 
SAB2 


96B5 
9AB3 


9686 
5050 aBFC 
5060 8BD4 


4820 8C34 
4230 B0E4 


0320 8c0g 
D310 g82c3 
o512 
2335 
SEA2 


06-1 77FO02RG4MS1A13 


=0015Calr 
=0016181 


=00161aI 


=0022081 
=0016181 


=0018ACI 


=00210cI 
=0021881 


=00221cr!i 
=0016p0I 


=0021F a! 
=9018871 


2132 
2133 
2134 
2135 
2136 
2137 
2133 
2139 
2145 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
214g 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 


MTWB 


WALKRD 


MTRB 


x 
MTERRB 


* 
orsc 
SELWRT 


CONT4B 


CONTs&c 


RieRS 
R2,R6 
RAsRO 
Bel 
RA,O(R5) 
R561 
R6-R5 
MTWB 
R5,R1 
R6.R2 
RA+RO 
7eMTERRG 
CONTSB 
RA,R3S 
R1i,R5 
R2,R6 
RA+RO 
8.1 
RA,O(RS) 
R5,1 
R6«R5 
MTRB 
R5-R1 
R6,R2 
RA»RO 
7-MTERRB 
CONTSS 


R1,15 
R1,SELERR 
CONT5B 


= 
RB,STOP 
ADCH4 
R2eRS 
R3eR6 
RBeR2 


RBeRS 
ADC-4 
RBeRS 


RBeRE 
R5.STADN 
R6éeFADD 


R2-eRWOEY 
SELDIS 


R2.4TCMn 
RieMTREAD 
RiseR2 
EMTRD 
RA,.R2 


15:13:57 11/13781 


SAVE R5 

SAVE R6 

SENSE STATUS 

WAIT FOR BUSY NOT 
WRITE DATA j 
BUMP 

DONE?? 

NO, LOOP 

RESTORE R5 
RESTORE R6 

SENSE STATUS 

GO To RETRY 


OUTPUT THE READ COMMAND 
SAVE RS 

SAVE R6 

SENSE STATUS 

WAIT FOR BUSY NOT 
READ DATA 

BUMP 

DONE?? 

NO, LOOP 

RESTARE R5 
RESTORE R6 

SENSE STATUS 

GO To RETRY 


STOP THE SELCH 

* 

MS START ADDRESS DOWN 
MS END ADDRESS DOWN 
WRITE THE FIRST BYTE 


* 
WRITE THE 2ND + 3RD BYTES 
* 

WRITE THE &TH BYTE 

* 


WRITE THE STH & 6TH BYTES 
SAVE THE START ADDRESS, 


GET THE MAG TAPE COMM4aND 
SET MAG TAPE READ COMMAND 
IS THIS A MAG TAPE READ 7 


YES - GIVE ESELCH READ COMMAND 
NO = GIVE MAGTPE WRITE COMMAND 


Ro4¥ 
ROG 
ROW 


Ro4 
ROu 


RO4 
RO4 


mOg213209 
M0G621330 
MDG21340 
40621350 
“0621360 
M0G21370 
M0G21360 
M0G21390 
MDG21400 
40621410 
mD0G621420 
0621430 
MOG21449 
MOG214S50 
0621460 
MOG21470 
MO0G21480 
mDG6214%90 
0621500 
MDG21510 
M0G21920 
M0G21530 
“G215u6 
M0G21550 
MOG21560 
MDG621570 
4DG21560 
MD621590 
mDG621600 
MDG21610 
mDG21620 
MO621630 
MDG21640 
MD0G21650 


MO0L05910 
MD621799 
MDL03950 


M0621830 
mMDG21840 
m0621650 
M0621870 
™DG21880 
M0G21690 
0621900 
MDG21910 
40G21950 
M0G21960 
MDG21976 
MDG21980 


( 


MAD 


oo15FAl 
90i5Fal 


*0015FE1 
0016001 
001402! 
U0, 6021 


0016061 
00160A1 


0016101 


0016101 
0016101 
0016121 
0016141 


0016181 
00161CcI 
0016201 
*0016221 


9016241 
9016261 
00162aAl 
00162CI 
OU1630T 


00616341 
0016361 
00163A1 
coi63el 
0016407 
0016441 
0016461 
v0164al 


O0164E1 
0616527] 
0016541 
0616581 


GENERATOR 


DEBS g82aB 


2304 
SEAS 


DESO g2R3 


4120 
c200 


BY7E 
8002 


0000 16101 


G000 
FOFO 


0000 1618] 


0000 
D320 
D310 
0Sl2 
2339 


16181 
8BDNC 
8297 


90A1 
C310 
2335 
C810 
4300 


0010 


OoE9 
86AU 


0000 
SDAL 
4210 
C310 
2235 
C310 
2335 
c810 
4300 
0006 
c3i0 
2135 
4830 
4330 


16341 


8634 
0010 


0020 


0003 
8686 
164E] 
noco 


8BBu 
8046 


0980 165c1 


06=-177F02R04N91A13 


20018A9I 


=9018B91 


=001A88I 
=0016101 


=0021F 81 
70018871 


=O001C047 


s00G1C6ET 


=001CD4I 


=U022Ua1 
=0016A21 


2187 
2188 
2159 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 


2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 


EMTRD 


SEL1 


CONTSA 


CONMT9 


* 
MTERR 


( 


PAGE 


ADC~4 
RB»ESWRT 


RB,SWRT 


SEL1 
RA,R2 
ADC=4 
RBeESREAD 


RBeSREAD 


R2,.SETSEL 
CONTSA 


8 

* 

ADCe2 
X*0000*,x*"FOFO! 


A(CONT5R) 
X*FO00*,2Z(CONTSB) 


* 
R2,MTCMD 
RieMTREAN 
R1,R2 
CONMTX 

NO 
RA,R1 
R1,X'1o8 
CONMTX 
R1X*Eg* 
ERRA 


* 

RA»R1 
1,0EVOy 
R1i,X'1loe 
CONMT1 
R1eX*20e 
CONMTS 
Ri sX*oOZe 
ERRA 

x 
RieX'Coe 
MTERR 
R3,SELERR 
MTEND 


* 


41 


15313257 11713781 
* ROW 
ESELCH WRITE COMMAND ROY 
* ROY 
GIVE SELCH WRITE COMMAND Row 
* RQ& 
GIVE THE MAGTPE READ COMMAND 
* Roy 
6IVE THE ESELCH READ COMMAND 
* ROY 
GIVE SELCH READ COMMAND 
* Roe 


SET uP FOR A SELCH INTERRUPT 


GET THE MT COMMAND 
IS THIS A MT READ 


YES » DONT CHECK FOR WRITE PROTECT 
THE MT WRITE - CHECK TO SEE IF 

TAPE RESPONDED TO THE WRITE COMMAND 
NO MOTION SET ? 

NO = TAPE IS MOVING 

YES - THEN TAPE DIONT MOVE 

PRINT ERROR 


NO - THE MAGTAPE 
DEyIcE Is Du 
WAIT FOR NO MOTION 


END OF TAPE 


ANY ERROR 9? 
YES - TRY To RECOVER 
NO = SELCH ERROR 7 


MOLY¥6U60 
MOL06100 


“D0G22000 
MDG22010 


MOLY6¥60 
MDL0616¢60 


MOG22130 
MOG22140 
m™DG622150 
mOG22165 
MDG22170 
MU0G22180 
MDG22199 
é0G22200 


MDSG22210 
MO0G22226 
MDG22230 
MOG22240 
MOG22250 
M05222656 
MDG22270 
MDG22280 
MDG22290 
MDG22300 
MDG22310 
M0G22320 
MO0G22530 
MUG22546 
“1622350 
MQG22560 
MDG622570 
40622380 
MUG22590 
MOG22400 
+0922410 
MODG22426 
MDG224%30 
MOG22440 
MiG2245G 
“0G22460 
MOG22470 
MDG22460 
MDG224906 
MDG22509 
MDG22510 
M0G22520 
MOG22530 
MO0G22540 


MMO 


00165cI 
00165EI 
0016621 
0016641 
001668! 
00166cI 
*00166EF1 
0016701 
0016721 
0016761 
0016781 
60167CI 
00167EI 
0016821 
0016841 
0016861 
00168cI 
0016861 
0016921 
6016961 
00169AI 
00169EI 


0016A2T 
0016A6I 


0016a8I1 
0G16ACI 
00,6B0I 
001684! 
0016881 
00168CI 


UU16C0I 
oa16ecal 
00;6cal 
0016CcrI 


0016001 
0016021 
0016041 
0016081 
oo16ncl 
*0016£0L 
0016E£21 
0016E41 
0016E81 
O016EAI 
OO16EEL 
O016F OL 
0016Fer 
0016F4I 
*0016F61 


GENERATOR 06-177F02RC04M91A13 
SDA1 2241 
C316 9010 2242 
2233 2243 
D320 8890 =0021F8I 2244 
0330 8248 =0018B71 2245 
0532 2246 
2138 2247 
9DA1 2248 
C31a0 co4o 2249 
2334 2250 
5830 8B64 =0021E01% 2251 
03uU3 2252 
4850 888A =00220CI1 2253 MTERRW 
2135 2254 
C810 00F3 2255 
43U0 g648 =001CD4I 2256 
2731 2257 MTERR1I 
4930 aB7A =00220CI 2258 
4100 g2eq =0019807 2259 
DEAO 8213 =0018ADI 2260 
4100 g2F2 =001980I 2261 
4300 FECK =061566I1 2262 
2262 + 
6000 16A21 2264 MTEND 
5850 8816 =00218CI 2265 
0363 2266 
2267 »«* 
0000 16A81 2268 EV 
DEAQ alFF =0018ABI 2269 
4100 a2pG =0019801 2270 
DEAO a81F7 =0018ABI 2271 
4100 g2c8 =001980I1 2272 
DEAO 81F1 =0018A0I 2273 
4100 g2c0 =0019801 2274 
2275 * 
41E0 gifs =0018BCI 2276 PEOJ 
£620 8084 =00177CI 2277 
4130 S1FA =0018C6I 2278 
4300 £9cC =00909cI 2279 
2280 * 
90C1 2281 SELDIS 
2221 2282 
4130 9306 =0019DEI 2283 
48350 8832 =O0G220Er 2284 
C530 9008 2285 
233¢ 2286 
9ACa 2287 
4810 8B1A =0022027 2288 
111A 2289 
4870 8812 =0022007 2290 
0617 2291 
98C1 2292 
9DC7 2293 
2224 2294 
2306 2295 


PAGE 


RA,R1 
R1,X'10% 
MTERR 
R2ehTCMp 
R3eMTREAD 
R3,R2] 
MTERRW 
RAeR1 
R1eX*4Ge 
ATERRW 
R3,EOQVRTN 
R3 
R3eRETRY 
MTERR1 
R1eX*ESe 
ERRA 

R31 
R3ZeRETRY 
RO eNOQMOTN 
RA«BKSp 
RO.NOMOTN 
MTRY 


* 
R3eWRTEND 
R3 


* 
RAs WFR 
RO »NOMOTN 
RA WFH 
RO,NOMOTN 
RAeBKSP 
RO eNOMOTN 


RE,CRLE 
R2,EQU 
R3ePRINT 
REDOTTY 


RC,R1 
2sSELDIS 
R3 WOFT 
R3.CUTRKDEN 
R398 
SELOIS2 
RC RS 
R1,HEAD 
R110 

R7 CYL 
R1i,R7 
Rc,Ri 
ROR? 
2e1 
s€cOIsi 


42 15213357 11/13/81 


GET THE MAG TAPE COMMaNO 
GET THE READ CMD 

MT READ 7? 

NO = ERROR 

YES - CHECK FOR EOF. 

EOF ? 

NO 

YES « TAKE THE EOF RETURN 


TRY TO RECOVER 


RECOVERY UNSUCCESSFUL 


WAIT FOR NO MOTION 
BACKSPACE THE FILE 
WAIT FOR NO MOTION 


WRITE A FILE M&RK 
WAIT FOR NO MOTION 


WAIT FOR NO MOTION 
WAIT FOR NO MOTION 
DO CR/LF 


WAIT 
CONTROLLER IDLE 


WRITE SECTOR 
SCaLeE 


MERGE CYL 
WRITE HEAD/CYL 


MDG622550 
MDG622560 
MOG22570 
M0G22580 
mM0G22590 
mMOG622600 
M0G622610 
™DG622620 
“™9G22636 
MNG22640 
mMDS22650 
40622660 
mMQG22670 
MOG22680 
M0622690 
M0622700 
MOG22710 
MD0G22720 
MOG22730 
MOG22740 
MDG22750 
MOG22760 
MOGe2776 
M0G22780 
™0G22790 
mDG22800 
M0622610 
M0622820 
MDG22630 
MOG22840 
M0G22850 
m0622660 
MDG22870 
MO0G22880 
MDG22899 
MDG22900 
M0622910 
M0G22920 
40622930 
MDG22940 
40622950 
M0G22960 
MD622970 
M0622980 
M0G22999 
MDG23000 
mpg23010 
MDG23020 
MOG25030 
MOG23UK0 
40623050 
M0G23060 
40623070 
465623060 
v0G23090 


( 


MAD GENERATOR 06-177F02R804N91413 


Q0;6F a1 
016FCcl 
GOoLEFETI 
01 700T 


0017021 
0017061 
DO17GATI 
oo0i7ucl 


00170EI 
9617101 
g017141 
0017181 
00171AI 
0017141 


*00171E! 
6017201 
0017221 
6017221 


0017261 
G0172aI 
0017301 


0017301 
0017301 
3617321 
0017341 


00173a1 


00173cI 
0017351 
0017421 
oo1746l 
OOLT4AL 
00i74CI1 
*0017501 
0017521 
0017561 
0017531 
00475cI 
6017601 
0017621 
061766! 
00176al1 


4810 8BUg =tg220aT 


1115 
0618 
SACL 
coco 
0320 
0319 
9512 
23354 


9DA1 
C310 
4230 
9EC2 


DEBO 


2304 
9EC2 


DEBO 


4120 
c2u0 


0000 


0000 
FOFO 
0000 


4130 


9DA1 
4210 
4810 
c310 
2134 
4810 
232D 
4830 
2135 
calo 
4300 
2731 
4030 
43Zuod 
4130 


17021 
BAFE 
B1AC 


0080 
805C 


8188 


8193 


835E 
B002 


17301 


17381 


833 


852Cc 
BAAE 
0005 


BABS 
BABE 


OOF 
8574 


BAAG 
FE62 
a2A2 


20622041 
=OC18B6I 


20017741 


=0018A9I 


=C018B9I 


=601A88eI1 
2001730! 


=OOLA7TAT 


=C01C6EI 
20021F4l 
=0022081 


=80220cC1 


=O01CO4l 


=O0220cC] 
=0015CcCI 
=O01A10T 


2296 
2297 
2298 
2239 


SELDIS2 


SELOIS1 


ESRD 


SELD1I 


cCONTOS 


* 
CoNDS1 


* 
CONDS3 


OSCERR 


DSERR1 


osCEND 


R1,HEAD 
R15 
R1,R8 
RC»R1 

* 
R2.0I1ScmD 
R1,DREAD 
R1,R2 
ESRD 


RAeR1 
R1eX*8or 
WRIPRT 
RC,R2 
ADC*4 
RB.ESWRT 


RB,SHURT 


SELD1 
RCeR2 
ADC #4 
RB,ESREaD 


RB.SREAD 


R2eSETSEL 
CONTOS 

8 

* 


Aoce2 


NO 


X*0000*,x'FOFO?® 


A(CONDS1) 


X*FO000*,Z(CONDS1) 


R3,SETCON 


RAR 
1,O0EVDuU 
R1,CONSTA 
R1eX"05e¢ 
DSCERR 
R1,SELERR 
DSCEND 
R3,RETRY 
DSERR1I 
R1iyX*ESs 
ERRA 

R391 
R3SeRETRY 
SELWRT 
R3,FRSRW 


15213557 


12/13/81 


POSITION THE HEAD BIT 


SET UP THE HEADER 


* 


GET THE DISC COMMaND 
EXTENDED SELCH COMMANDS 

IS THIS A NISC READ ? 

YES ~ GIVE ESELCH READ CMO 
GIVE ESELCH WRITE CMD. 


WRITE 
Yes 

START 
IF 30 
START 


START 
START 
IF 32 
START 


START 


PROTECT SET ? 


THE 
BIT 
THE 


THE 
THE 
BIT 
THE 


THE 


DISC 
SELCH 


SELCH 


DISC REaD 
ESELCH READ 


SELCH 


SET UP FOR SELCH INTERRUPT 


CONTROLLER ERROR 2 


TRY TO RECOVER 


RECOVERY UNSUCCESSFUL 


WATT FOR Orse abo. 


INTERLGCK 


ROY 


Ro4 


204 


RQO4 


M0G623100 
MDG623110 
M0G231290 
"DG2313,g 


M0G623150 
MDG23180 
MDG25199 
MO0G623200 
mMOG23210 
MOG23220 
MO0G23230 
MDG235240 
MDG23250 


MDG232706 
MDG23280 


MD623290 


M0G234460 
MOG23455 
MDG23460 
MO0G23470 
w2623%80 
mDG23490 


MD0G23500 
m0G623516 
MDG623520 
M 623530 
MD623540 
M'623550 
MDG62356G 
MOG23570 
40G23580 
MDG23590 
MDG23600 
m0G623610 
0623620 
M0G23630 
"0623640 
MDG23650 
MO0G23060 
MDG25670 
MOG25660 
“OG235S0 
MOG23706 
MDG237190 


MMO 


00176EI 
0017721 


OOLTT4I 
00147781 


00177cI 
0017801 


0017821 
0017861 
0017881 
00178CcI 
0017901 
0017921 
0017961 
90179al 
00;179cCI 
O017A01 
OO17A4I 
OO1LTAGI 
OO17AAL 
0017AEI 
0017BeI 
0017B4I 
0017681 
0017BAI 
0017B8EI 
0017C901 
O017C4I 
0o17cal 
0017cclI 


GENERATOR 06-177F02R04M91A13 


5830 BAUA 
0303 


0000 17741 


c810 o0E9 
4300 3558 


4S4F 4A20 
oD0s 


48A0 8754 
2135 
C800 4534 
4300 g4a0 
SDA1 
c510 9004 
2135 
C8lo cOE6 
4300 9534 
C310 0001 
2335 
C810 oOFE 
&3U0 9526 
48BO 872A 
2336 
DEBO BOF4 
9061 
C510 0004 
2135 
C810 o0F6 
4300 8519 
48CO 8712 
2339 


70021BCI 


=001CD4I 


=QO01EDAI 


=001C1¥I 


=001CD4I 


=001CD04I 
=001E0CI 


=OO18ACI 


=001CD8I 
=QQ1EDEI 


2350 
2351 
23552 
23553 
23554 
2355 
2356 
2357 
2558 


23559 
2360 
2361 
2362 
2363 
2364 
2365 
23566 
2367 
2568 
2369 
2370 
23571 
2372 
2373 
2374 
2375 
2376 
2577 
2378 
2379 
2380 
2381 
2382 
2383 
2384 


* 
WRTPRT EQu 


R3,WRTEND 
R3 


* 
RiaX*E9e 
ERRA 


CtEOU* ex OD0A? 


44 
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WRITE PROTECT ERROR 


ERECEREE KEKE EERE EKER EEE EEE EEKEKERE KEKE REESE RE EEKREE KEKE KRERREEREEEKRYE & 


LoODAD 


HHH HK HHH HH HH HH HOH 


INPUT: 


OUTPUT? 


THIS ROUTINE WILL LOAD THE OUTOEV DEVICE ADDRESSES IN THE 
REGISTERS, THE ROUTINE WILL ABORT IF A DEVICE RESPONDS WITH 
"FALSE SYNCe" OR A DEVICE IS "Qu*, 
INDICATOR, 


IF & DISC TRACK DENSITY AND MAXCYL ARE SET. 


R3 = RETURN ADDRESS 


RA 
RB 


R1 


= DEVICE ADDRESS 

= SELCH ADDRESS 
RC = CONTROLLER ADDRESS 

= DEVICE INDICATOR 


IT ALSO LOAD THE DEVICE 


nH REN HB HHH HHH HOM OH OH 


KKESRAEKKEKKSEKERESLEKKEK EH KKERETE KERR EERE EKEEEKESEREREREERECRE EERE RK 


LoDAD LH 


BNZS 


LHI 


B 
LoD1 SSR 


CLHI 
BNES 


LHI 
B 

LoDla THI 
BZS 


Lob2 LH 


Loo3 LH 


RAeOUTDEY+2 
LOoo1 
RO,C°EMe 
ERROR 

RaeR1I 
R1eX*OKe 
LOD1A 
R1,X*E6e 
ERRA 

Ril 

Lope 
R1-X*EEe 
ERRA 

R8 ,OUTOFY+4 
Loos 

RB »STOP 
R8,R1 

R1LeX* O48 
LOO3 
R1ieX*EGs 
ERRB 

Rc OUTOFV+4s 


LOD4 


GET THE DEVICE ADDRESS 
ZERO 7? 
YES 


NO 
FALSE SYNC ? 


YES 

DU ? 

NO 

YES 

GET THE SELCH ADDRESS 
STOP THE S€1 CH 

FALSE SYNC ? 

NO 

YES 


GET THE CONTROLLER aADnRESS 


mpG23720 
MOG23730 
MOG23746 
MDG23750 
M0G23760 
MDG23770 
M0623780 
MNG623790 
m0G23800 


MD0G623810 
MDG23820 
MDG23830 
MDG23640 
M0S23850 
MDG23860 
M0G23870 
M0G23880 
4D0G23890 
M0G23900 
M0G23916G 
M0623920 
MDG23930 
MOG23940 
M0G23950 
MD623960 
MD0G23970 
MDG25980 
MD623990 
mog28000 
MDG24010 
MO0G24020 
™0G624030 
MOG24640 
wO0624050 
M0G24060 
M0G24070 
mDG24080 
40624090 
MDG24100 
mD624110 
mp624120 
"DG24130 
mDNG24140 
moG24150 
40624160 
MDG24170 
mM0G24180 
0624199 
MOG24200 
MD0G24210 
MOG24220 
vDG24230 
MOG24240 
MDG24250 


( 


MMO GENEP ATOR 


ao17cerl 
0017501 
oo17aal 
001756! 
V017541 
00170E! 
Goi7eal 
OO1L17E4L 
0017E¢a1 
O017ECI 
004 7F0I 
OOL7FE4I 
0017F81 


QO17F AL 
CO17FEL 
00178001 
00; A041 
6018081 
oo1s0al 
O01S80FI 
0018102 
00,8141 
0018181 
00181CI 
Oo1si1e! 
0018221 
0018261 
o01e82al 
00182cI 
0018301 
001832! 
G018361 
0018381 
00183crI 
O08 1a4e!l 
6018441 


90C1 
c510 
2135 
cél1o 
4300 
4810 
2135 
caeo 
43u0 
4810 
4010 
#816 
0303 


4BAD 
2135 
caud 
4300 
9DA1 
c510 
2135 
c81o0 
4300 
C310 
2355 
c8ia 
43U0 
48B0 
2338 
DEBO 
SDB1 
c5i0 
2135 
c@10 
4300 
46C0 
2339 


0004 


NOE6 
a4FE 
86F6 


4534 
8424 
a9D4 
BALA 
B6EU 


86F4 


4535 
a4Gs 


0004 
O0E7 
B4BC 
0001 
OOEF 
BY AE 
86BA 
807C 
A0og4y 
Q0E7 


8496 
b6A2 


06-17 7FO02RO04NS1AL3 


sb01CcDCr 
=OQLEDSI 


=001C1UY 
=0021C4I 
~O022UET 
=001ED81 


=OO1EE2T 


=001C101 


=O01CD4I 


=G01CD4I 
rOOLEEST 


=O018ACT 


=001CD8I 
sOQ1EEGI 


2404 
2405 
2406 
2407 
2408 
2409 
2419 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
24oy 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
24420 
24435 
2444 
2445 
2446 
2447 
2448 
244g 
2456 
2451 
2452 
245% 
2454 
2455 
2456 
2457 
2458 


Lo04 


Lod5 


* 


PAGE 


RC,R1 
RieX*04" 
LOD4 
Ri»X*EsSe 
ERRC 

R1 OUTDFY 
LODS 
RO,C*eEue 
ERROR 
R1,.TRKDEN 
R1,CUTRKNDEN 
R1,O0UTOFY 
R3 


4& 15:813:57 11713781 


FALSE SYNC ? 

NO 

YES 

GET THE DEVICE INDICATOR 
YES 

ERROR 

SET OUTPUT TRKDEN 

STORE IT 


RETURN 


ERERKKKEEER EER KEREKEE EERE SE EEEESERKEREERERKERKKEREREEKEKREKERERKE TERE E EE 


* 


* LIOADSO 
* 
* THIS ROUTINE WILL LOAD THE INDEV DEVICE ADDRESSES IN THE 
* REGISTERS, THE ROUTINE WILL ABORT IF A DEVICE RESPONDS WITH 
* "FALSE SYNC" OR A nEVICE IS "DU". IT ALSO LOADS THE pEVICE 
* INDICATOR, IF A OISC TRACK DENSITY AND MAXCYL ARE SET. 
* 
* INPUT? R3 = RETURN ADDRESS 
* 
* OUTPUTS RA = DEVICE ADORESS 
* RB = SELCH ADDRESS 
* RC = CONTROLLER ADORESS 
* R1 = DEVICE INDICATOR 
¥ 
HAE ERK EKER EEE AKERS EEE KEKE RK ERE EERE Ee ERKEKEK ERE EKER REESE REE KEE 
* 
LIOAD LH RArINDEY+2 GET THE DEVICE ADDRESS 
BNZS LID1 ZERO ? 
LHI RO,C*E5s YES 
3 ERROR 
Lrul SSR RaAeR1 NO 
CLHI RieX*O4s FALSE SYNC ? 
BNES LIDIA 
LHI R1igXtE7s YES 
8 ERRA 
LID1A THI Riek DU ? 
BZs Lip2 NO 
LHI R1X*EF? YES 
B ERRA 
L102 LH RB INDE Vs4 GET THE SELCH ADDRESS 
azs LIO5 
oc RB+SToP STOP THE SELCH 
SSR RB,R1 
CLHI RieX* Our FALSE SYNC ? 
BNES LIO3 NO 
LHI R1ieX*E7e YES 
8 ERRB 
L103 LH RC INDEV+6 GET THE CONTROLLER adnreEss 
BZs Lio4 


* 
ok 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 


MDG24260 
MDG24%270 
MIG24280 
MDG24290 
40624300 
MDG24510 
40624326 
40624330 
MUG24340 
4DG24350 
™DG24360 
MOG24375 
MDG24580 
MOG24390 
M0G624400 
MOG24410 
MUG2%420 
MOG244309 
MDG24440 
MOG24450 
MOG24460 
MDG24470 
™DG6294380 
MOG24490 
MDG24500 
MDG624510 
40624520 
MDG24530 
MNG2454Q 
HDG24550 
“DG624560 
MDG24570 
M0G6245860 
M0624595 
“0G24600 
MDG24610 
MOG24620 
~DG24630 
MDG24640 
MOG24S54 
MDG24660 
MiIiG24O7G 
MDG24%680 
MONG24699 
mMOG24700 
MDG24710 
M5G24720 
mDG24730 
MDG2474uG 
MO0G24750 
4US24760 
MDG24770 
MDG24780 
™NG24790 
MDG2480G6 


SEE ESS ESET SS EE SU Re RE a ae: 


MMD GENERATOR 


0018461 
0018481 
oo1e84cl 
00184ET 
001a5901 
0018561 
09185AI 
00185CI 
0045601 
0018641 
00186aI 
30186cI 
0018701 


0018721 
0018741 
001876! 
0018781 
*00187CI 
*00187EI 
001880. 
*0018621 
001886! 
*00188aT 
00188cI 
00188E! 


0018a90T 
0018921 
*001896I 
0018981 
9018941 
oo1a9cl 


9061 
C510 
2135 
c810 
4300 
4810 
2135 
c800 
4300 
4810 
4010 
4816 
0303 


085p 
086E 
0B65 
C560 
218A 
2339 
0650 
cADO 
6865 
CA6O 
2440 
0303 


244F 
£560 
2334 
0850 
086E 
0303 


0004 
o0E7 
8486 
8666 
4535 
B3AC 
895E 


AaFA2 
8670 


OOFF 


0100 


QOFF 


0006 


06-177F02R04M91A13 


=001cDCI 
=QO01EE0T 


=001C191 
=0021CéI 
=00220E1 
sOO1EEOT 


2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2455 
24ag 
24a7 
24aa 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 


LIO4& 


L105 


Ne ktkeeRnKRK HRHHRMHHK HHH HHH EHH 


TBKAD 


* 
NOMORE 


STSK AQ 


RCoR1 
RieX*O4e 
LID4 
RieX°ET? 
ERRC 
R1LeINDEY 
LIo5 
ROC*ES? 
ERROR 


Rie TRKDENe2 
R1,CUTRKDEN 


R1.INDEy 
R3 
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FALSE SYNC ? 

NO 

YES 

GET THE DEVICE INDICATOR 
YES 


GET INPUT TRKOEN 
STORE IT 


RETURN 


THIS ROUTINE WILL RETURN THE PROPER VALUES TO SET UP THE 
SELCH OR TO SET uP THE WRITE BLOCK. 


INPUT 


OUTPUT = R4 


LDAR 
LOAR 
SAR 
CLHI 
BL 
BE 
LDAR 
“AAT 
LOAR 
AAI 
LIS 
BR 


LIS 
CLHI 
BE 
LDAR 
LDAR 
BR 


= RD = LOW ADDRESS TO BE COPIED 
RE 


RS 


RS 
R6 
RO 
RE 


uo 


R5,.RO 
R6eRE 
R6eRS 
RG_X FES 
NOMORE 
NOMORE 
R5~eRO 
ROeX'100° 
R6—RS 
R6eX*FEe 
RG,O 

R3 


R4,i5 
RGeX* O08 
NOMO1 
R5,.RD 
R6sRE 
R3 


HIGH ADORESS To BE COPIED 
RETURN ADORESS 
0 MORE DATA BLOCKS REQUIRED To FINISH 


THE ENTIRE TRANSFER 


F INDICATES THAT THIS IS THE LAST 
BLOCK OF THE TRANSFER 

LOW ADORESS FOR THIS BLOCK 

HIGH ADDRESS FOR THIS ALOCK 

ENTRY VALUE + x*100° 

ENTRY VALUE (NEVER ALTERED) 


COPY THE LOW POINTER 
COPY THE HIGH POINTER 
SUBTRACT (HIGH = LOW) 


DIFFERENCE = 0 ? 


0624810 
mM06248e20 
MDG24830 
40624840 
M0624650 
40624860 
MDG24870 
M0G24880 
m0G24890 
mD0G24900 
MDG24910 
MDG24920 
MOG24930 
MDG24994a0 
MD0G624950 
MDG24966 
MDG29970 
MDG24980 
40624990 
MDG25U00 
MDG25010 
mnGg25020 
“DG25036 
MOG250460 
mD625050 
“D625060 
Mo625070 
mD625080 
MDG625090 
40625100 
40628110 
MoG25120 
4DG25130 
M0G25140 
M0625150 
m06¢25160 
Mp625170 
“DG25180 
“0625190 
MDG25200 
0625210 
MDG25220 
MDG25230 
M0G25240 
™DG625250 
mO0G25260 
40625270 
éDG252680 
MD0G25290 
“D6253500 
“0G25510 
M0G25520 
“0625530 
mDG25540 
MD0G25550 


MME) 


o01a9e! 
OOL8A0T 
o018A2!r 


001844 


0016AalI 


co1esel 


oo18Aal 


oo1gacl 


0018AEI 


0018B01 


0016821 


001884. 


0018361 


0018981 


0018Bal 


O0iaA3CcI 
neiscal 
0018C4] 


GENERATOR GC4-177F02R045M91A13 


0850 
0865 
2661 


0303 


2513 
0000 


2250 
0000 


C0350 
0000 


0811 
00090 


10C2 
0000 


c8c1 
0000 


0302 
0060 


2038 
0000 


0121 
G00 


3070 
oouo 


4800 


0900 
E620 
4130 
O30EF 


18A7I 


18A91 


18ABI 


+8a0l] 


18AF 1 


186611 


18831 


18651 


16871 


18B91 


18B6CI 


B09E 
avd2 


=O00195E1 
=0018C6I 


2514 
2515 
2516 
2517 
2518 
2519 
2529 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2533 
2539 
25460 
2541 
2542 
2543 
2544 
25465 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
25690 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 


x 

NOMOL LDAR 
LDAR 
AIS 

* 
BR 

* 

x 

x 

x 

FwFM oc 

BKFM EQuU 

* 

MTWRT DBC 

ESWRT EQU 

* 

DYSABL oc 

WEM EQu 

x 

STOP pc 

BKSP EQU 

* 

SwRT pc 

SEEK Eau 

x 

RESET oc 

RESTOR Eau 

x 

RCHECK oc 

OwRIT Eau 

x 

CLEAR oc 

REWIND Eau 

* 

DREAD oc 

MTREAD FQU 

*x 

SREAD oc 

ESREAD EQU 

* 

esTor pc 

x 

* 

CRLF EQuU 
LOAY 
BAL 
BR 

x 

x 

x 

* 

* PRINT 

= 

* 

x 


R5,RD 
R6.R5 
R61 


R3 


X92313» 
FWEM +1 


X*2250' 
ATWRT 41 


X9c0350¢ 
DISABL+41 


x*9811° 
SToP+1 


X*270C2»s 
SWRT+i 


x*c6cie 
RESET+1 


X*0302" 
RCHECKs14 


X*2036° 
CLEAR+1 


X*g9121° 
DREAD+1 


X*3070° 
SREAD+1 


X#u6008 


x 
R2,AST+2 
R3,PRINT 
RE 


( 


PAGE 4&7 


WILL 


15213357 11713781 


ADf2 1 SO THAT A MIN. OF 2 BYTES 
BE TRANSFERED 


FORWARD FM ~ BACKSPACE FM 


DISABLE / WFM 


STOP/8KSP 


SELCH GO / SEEK 


READ CHECK ¢ DISC WRITE 


CLEAR / REWINO 


DISC READ + MT READ 


ESELCH STOP 


LOAD ADDRESS 
DO CR/LF 
RETURN 


THIS SUBROUTINE WILL PRINT TO THE TTY+ CRT» OR CAROUSEL ON PASLA 


M0G25360 
M0G25379 
M0625360 
MD0G25399 
MDG25400 
M0625410 
MDG2542n 
MDG25430 
MOG2544o 
40625450 
MDG25460 
“AOG25470 
MD625%80 
MDG625490 
«0625500 
MDNG255156 
MOG25520 
MDG25530 
m0G25549 
§0G25550 
40625560 
m0G25570 
MDG25589 
MNG2559¢6 
MDG25600 
MDG25610 
mDG25620 
MDG25630 
mDG25649 
MDG25656 
M0G25660 
MDG25670 
¥D0G625680 
NOoG25696 
MDG625700 
MNG25710 
MUG25720 
MDG25730 
wpG2e574g 
MDG25750 
MDG25760 
MDG2577To 
M0G25780 
"LG625790 
“0625800 
40625815 
M™DG25629 
MDG25830 
MDG25840 
4™0$25850 
M0G625860 
“NG25870 
MDG2S566 
MO0G25890 
“0625900 


SESE DEES ESBS SSS I TNC TT SAMS SES SO Ea NR A a a a a 


MAD 


0018C6l 
G018CAI 
GG1SCEI 
*0018D0I 
cdienal 
00148041 
0018061 
0018D8aI 
00180cI 
o0180ET 
ON18E2I 


OO1BE4I 
O018EGI 
0018EAI 
OO18EEL 
0014F2I 
GO1SF4I 


0018F6I 
0O018FAI 
o01aFEI 
0019001 
*001902I 
0019041 
0019081 
0019041 
00190EI1 
0019101 
0019141 
*0019181 
OO191AT 
001L91E1 
0019201 
0619221 
0019261 
00;92a1 


00192E1 
0019321 
0019361 
CO193AT 
00193cI 
*00193E1 
9019407 


GENERATOR 06-177FO02R04M91A13 


0000 
D342 
G1FO0 
2740 
2333 
2621 
2207 
244a 
41FO 
254) 
41FO0 
0303 


0000 
2400 
40C0 
4800 
4810 
2332 
9E01 
0000 
4800 
D310 
5E01 
9001 
2386 
4810 
2039 
4300 
9B01 
c4#10 
C810 
2134 
4010 
2308 
2712 
4230 
4OFO 
4300 


4019 
43800 
D310 
SEU, 
90b1 
211A 
c510 


18céI 
0600 
8416 =0018E4I 


8008 =0018E41 


8002 =O0018E4I 


18E4! 
B07A =001964K1 


E738 =000026I1 
E73A =00002CI 


18F6I 
E72c =0000261 
E72c =00002AT 


805C =0019641 
8020 =00192EI 


GOT7F 
0012 


6046 =001964I1 
FFOO =0018F6I 
803A =0019641 
FFC8 =9018F6I 
8U32 =O001964! 


E6F2 =000025T 
E6Fi =00002B81 


o00c 


2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2561 
2562 
2983 
2584 
2585 
2586 
2587 
2584 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 


“ex eH eH OH 


PRINT 
PRINT2 


PRINTS 


PRINT3B 
PRNTEX 


INPUT TO 


BR 


«x TO QUTPUT 


* 
OuTCHR 


oTc.0 


orc.t 


OTCe2 


oTce3 


* 
ouTCHR2 


oTce4 


Eau 
LIS 
STH 
LH 


THE ROUTINE 


x 
RG, O(R2) 


LINK eOQUTCHR 


R4,13 
PRINTS 
R2el 
PRINT2 
R4,10 


LINK+OUTCHR 


Ruel 


LINK eOUTCHR 


R3 


15513857 11/13/81 


NUMBER OF CHARACTERS TO BE OUTPUT 
THE ADDRESS OF THE OUTPUT BUFFER 
THE RETURN ADDRESS 


GET A MESSAGE BYTE 
OUTPUT IT 

CR ? 

MSG OVER 


LOOP FOR NEXT CHAR 
LF 

LF 

DEL 

TERMINAL CHARACTER 
RETURN 


A CHARACTFR TO THE LIST DEVICE 


* 
RO,6 
ROePAUSFE 
RO,CONRADR 
R1,CON2nD 
oTc.0 
RGO,»R1L 
* 
Ro, CONRADR 
R1,CONRD 
RO.R1 
ROeR1I 
8soTC.2 
R1,PAUSF 

S oOTCc.9 
OUTCHR2 
ROeR1L 
RieX"7Fe 
Ri,X'12¢ 
oTc.3 
RiePAUSE 
OUTCHR2 
Ri~2 
OTC.9 
LINK «PAUSE 
oTc.0 


R1ePAUSE 
RO,CONWANR 
Ri, CONWRT 
RO,R1 
RGeR1I 
1.0UTO 

I R1.,1i2 


GET READ ADDRESS 
GET 2NO CMD 

SKIP IF ZERO 
ISSUE 2ND CMD 


GET READ ADDRESS 

GET READ COMMAND 

ISSUE READ cMD 

SENSE STATUS 

BRANCH IF CHAR. IS TO BE READ 
PAUSED NOW 7? 

YES, LOOP 

NO, GO OUTPUT CHARACTER 

GET CHARACTER 


DC2 ? 


OCy ? 
NO, GO WAIT FOR Oce2 


RESET FLAG 

GET WRITE ADDRESS 
GET WRITE COMMAND 
ISSUE WRITE CMD 
WAIT FOR NOT BUSY 
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MMD GENERATOR 06-177F02R04M91A13 


OO,AAGT 


OO1AA4I 
SO1AABI 
NO1AAAT 
OO1AaET 


GO1AB21 
NO1ARGT 
a01AB6! 
00i1ABaI 
OO1ABAI 
001a8cI 
001aBEL 
901AC2T 
*O01AC4HI 
001aC6I 
O01acal 
*OOLACCI 
O01AD0r 


001A021 
001,AD4I 
*901ADaI 
001aA0CcI 


o0co 


4849 
o542 
4239 
DEBO 
0000 
2460 
9B46 
3466 
2470 
9947 
0667 
5870 
0576 
2137 
2400 
4000 
C800 
1800 


240F 
4000 
c80o 
18600 


1AA4TI 


876A =0022121 
A022 =OC1ADOT 


FE08 =0018BAI 
1AB2I 


86F6 =002188I1 


873Cc =00220er 
30F0 


8730 =00220aT 
30F0 


2895 
2896 
2897 
2898 
2899 
2900 
2301 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 


2916 
9Q¢%7 


ea-h4i 


2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2926 
23939 
2940 
2941 
29402 
2343 
2944 
2945 
2946 
2947 
2348 
2949 


* 


SETCOM 


* 
* 


* 
SELINT 
* 


* 


SELST1 


SELIN2 


SFLINI 


* 
SELIN 


SELLING 


PAGE 54 


RO»SELINT 
R1,R8 
R1,INTAOD 
Ried 

R1 eX Hye 
ROX Hor 
Re 


* 
ADCe2 


R44, INTANDD 
R4,R2 
SELINA 
RBsESTOp 
* 

R6,0 
RRS 
R6,R6 
R7,0 

RY RT 
R6eRT 
R7.FA0D 
R7,R6 
SELINS 
RO,O 
RO-SELERR 
RO.Y*O0000350F0° 
Ro 


RO,.1i5 
RO+SELERR 
RO,Y¥'000030F0¢ 
RO 


RF,RI 

RF eRB 
SELINS 
R8.SToOP 
RBsRI9 
R6—R9 
SELING 
R9.0 
R9,SELERR 
R9eX*Sognt 
R9eX*4He 
Xtaor 


15:13:57 11713781 


SAVE INT ADDRESS 


GIVE THE ESELCH STOP COMMAND 


53 = READ THE MOST SIG. SYTE 
LEFT 16 


REaO A HALFWORD 

R& = FINAL ADDRESS 
SET THE FINAL ADORESS 
COMPARE THE ADDRESSES 


REMOVE THE WAIT BIT 
SEY NO SELCH ERROR 


RETURN TO WHERE INTERRUPTED 


SET SELCH 
ERROR 


RETURN TO WHERE INTERRUPTED 


NO 

YES 

REAG END ADORESS 
COMPARE ADDRESSES ? 
NO 

SET NCO 

SELCH ERROR 

SET KEW PSW 


RETURN TO WHERE INTERRUPTED 


ROW 


M0629250 
M0629260 
40629270 
MDG29260 
MDG29290 
M40G29300 
M0G29310 
MOG29300 
40G29330 
mDG629340 
M0G29350 
mDG29360 
mDG29370 
mM0629380 
MO0G29390 
moG29400 
mDG294%10 
MOG2942¢ 
MDG29430 
M0G29460 
mDG29490 
MO0629500 
mDG629530 


MUG29560 
MOG29570 
“DG6295a0 
mDG629590 
M0629600 
m0G629610 
40629620 
mM0G29630 
mMDG2964u6 
M0G629550 
MDG29660 
MUG29670 
40629660 
MDG29699 
MOG2S7C0 
mDG29710 
Mo5G29T20 
mDG29730 
MDG29740 
MOG239750 
MDG29760 
MOG29770 
mOG29780 
M0G29790 
40629600 
M0629810 
m0G629820 
mDG629930 
MOG29846 
M0G629850 
MDG29860 


MMO 


oo1ADEI 


oo1adel 
*O01LAE2! 
001AE6! 
OO1LAEAI 
OO1AEEI 
OOLAF2I 
OO1AF6I 
OO1AFAl 
OO1AFEI 
001B02T 
0018061 
001B0a1 
001B0EI 
0018121 
0018161 
00151Al 
001R1EI 
0018221 
0018261 
O01B2AI 
001821 
001832! 
0618361 
0018381 
00183CI 
0018401 
001R44I 
001B48I 
001B4CE 
001R501 
0018541 
00185al 
00185cI 
0018601 
*001B864I 


0018681 
001B6al 
00186A1 
o0ise6c! 


GENERATOR 06-177F02R04N91A13 


0000 


c200 
c800 
5000 
5000 
5000 
5000 
5000 
E610 
5010 
5000 
—610 
5010 
5000 
5000 
5000 
E610 
5010 
5000 
£610 
c410 
cA10 
4010 
2618 
4010 
&000 
£610 
5010 
5000 
E610 
5010 
5000 
4000 
E610 
4010 
2306 


0000 
30F 9 
0000 


1ADEI 


8086 
o0FO 
0020 
0024 
9028 
g02C 
0030 
8980 
0034 
0038 
scac 
003C 
0040 
0044 
0048 
8088 
oo4ec 
0080 
a7oE 
FFOO 
0100 
0084 


0086 
0088 
80B8 
o08c 
0090 
80B2 
0094 
0098 
o0cc 
8090 
OOCE 


wAE2TI 


=0018681 


=001BAEI 


=001BB6I 


=O001BA6I 


20922381 


sO01BFCI 


2001C021 


=O0C1BFOI 


2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
23976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
29a5 
2386 
2987 
2988 
2989 
23990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 


5000 
3001 
3002 
3Ons 


SFLING 


x 
LcORE 


* 


LIs 
STH 
LIS 
STH 
LPSW 


ENDC 
EQU 
IFNZ 


R9,15 
R9,SELERR 
R9,0 
RIOX4OS 
x'go? 


s 
Apc~2 
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SET SELCH 
ERROR 


ZERO THE PSW 
RETURN TO WHERE INTERRUPTED 


INITIALIZE 


* INITIALIZE FOR THe 32 SERIES PROCESSOR 


6032 


* 


INIT32 


S744 


LPSw 
LI 
ST 
ST 
st 
ST 
st 
LA 
ST 
sT 
LA 


INIT32 


RO,Y*00q000F0" 


ROeX*208 
ROX" 2he 
RO«X*289 
ROX*2ce 
ROeX* 300 
RL ILLIst 
RieX*3He 
ROeX*38+ 
R1,4CHMaL 
RisX*3cr 
ROeX*a0r 
ROeX*4he 
RO X*hSe 
R1,ARFLT 
RieX*4cr 
ROeX*8Oe 
R1,O0LOPSW 
R1ieX*Fro0? 
R1,X*1loo08 
RisX* Bae 
R18 
R1,X*86? 
RO ~X'8s8s 
Rie IOVay 
RieX*8cr 
ROeX'90e 
Ri, MACINT 
R1eX*94qs 
ROeX* 9g 
ROX*Ccs 
R1,BNDYERR 
R1ieX*CeEe 
INTCOM 


8 


MAKE 256 BYTE BOUNDARY 
BUMP TO NEXT BOUNDARY 


BUMP 


X°Q000t,x*39F0! 


A(6032) 


INITI6 
RORO 


MDG29870 
MDG29880 
mMDG298S0 
MDG29900 
MDG29910 
MDG29920 
MO0G29930 
MDG299480 
MDG29950 
MDG29960 
MDG29970 
mDG29980 
mD0629990 
MDG630000 
mM0630010 
mDG30020 
40630030 
MDG30040 | 
MDG30050 
mn630060 
mD630070 
40630080 
fD639990 
mDG630100 
MD630110 
wO0G30120 
M0G30239 
M0636149 
4D630150 
m0G630160 
mOG30170 
m0G30180 
mDG630190 
MOG30200 
m0630210 
M0G630220 
MOG30230 
40630240 
M9G630250 
mO0G30260 
MDG30270 
MDG30280 
MO0G302906 
“0630300 
mDG630310 
40630520 
40630530 
MDG30340 
MD0G630350 
m0G30360 


MOG30576 
4D630580 
MDG50390 
“OGsceno 


A ERS SSR TEEPE ET STS [7 PORE EE TT aS a TT a a a eae eee eee aw Ne ee TELE 


MMO GENERATOR 06-177F02R04M91413 


001B70I1 


weLor™ 


on1s7cl 
OC1B7EL 
0018821 
001B84I 
0018861 
o01Bs8al 
00188CI 
0018901 
001B9a1 
001896! 
C01BSAI 
001a9CI 
001BA01 
001BA2T 


O01BA6I 
001BAAI 
OO1BAEI 
0018621 
661B661 
001886. 
0018B8I 
oo1Rect 
OO1BRBEI 
OOLBCOL 
no1ece! 
001BCSI 
*O0OLBCAI 
*ocoiscecl 


4830 
c81o 
4031 
2612 
c510 
20355 
0700 
4001 
2612 
cSlo 
2055 
c800 
4001 
2612 
C5lo 
2035 
4300 


caoo 
4300 
c&00 
4300 


SSAA 
5600 
2336 
2113 
c200 
c200 
OBAA 
211e 
22096 


8094 
o99Cc 
0000 


coBc 


0000 
0000 


1COEI 
0000 


o2D0 
ESAS 
4630 
8062 


4631 
805A 


9040 


aoce 
8020 


=001C08I 


=00004CT 


2091C101 


=001C10I 


=001BD0T 
=001BE81 


3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
2096 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3046 
3041 
5042 
3043 
3044 
3045 
3046 
3047 
3048 
3949 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 


INIT1E 
INTCOM 


x9c 


xpe 


xcc 


¥* 
* 


ARFLT 


ILLIST 


MCHMAL 


PywRUP 
PwRON 
NOTS260 


STH 


ROeX*ace 
RO X*3ue 
ROX 3ce 
ROeX* aye 
ROeXtaces 
ROeREGSav 
ROeX*22¢ 


ROARFLT 
ROeX*2ee 
ROeILLIsSt 
ROeX* 36% 
RO.MCHMaAL 
ROX SEF 
RO,INTER 
RO eX*hGe 
ROeOIVFELT 
RO«X*4ee 
BEGIN 
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X*3000',2(G016) 


R3.SVCERR 
R1.X"*9re 
R3.0(R1) 
R1,2 
R1.X*Bce 
x9C 
ROeRO 
RO.O(R1) 
R1,2 
R1-X"pDoe 
xac 

RO, INTER 
RO.-O(R1) 
R1,2 
R1,X*2Do¢ 
xcc 
BEGIN 


RO;C*FOr 
PSWE 
RO,C*Fie 
PSWE 
Adce2 
RAsRA 
ROX*4ge 
NOT3S200 
PWRON 
MCHPSW 
PFL 
RAeRA 
1,PFAIL 
PWRUP 


15:13:57 11/13/81 


SET THE ADDRESS 


FLPT ARIT FAULT 


ILLEGAL INST. 


CAPTURE PSwW 
SEE IF $3200 
NO 

POWER DOWN 


SET CC 
POWER DOWN 
POWER RESTORE 


MOG30410 
40630420 
0630430 
MDGS0440 
40630450 
MDG630460 
M0G30476 
m0G630480 
“DG304%90 
MD630500 
40630510 
m0630520 
M0630530 
m0G30540 
MDG30550 
4DG30560 
M0G30570 
0630580 
“0630590 
™DG30600 
M0G30610 
M0G30620 
MONG2N620 
“0630640 
MDG30650 
MOG30660 
mOG30670 
m2630680 
0630690 
40630700 
MDG30710 
MDG30720 
MDG30730 
mOG30740 
M0630750 
MOG30760 
MOG30770 
MDG30780 
MOG30790 
MOG30800 
M0G630810 
™0G30820 
“0630830 
MOG3084C 
M0G630850 
40630860 
MDG30870 
MNG30880 
0630890 
MDG30300 
MDG30910 
40630920 
MDG39930 
MDG309u0 
8DG30950 


( 


MMO 


oo1BpD0l 


001R00! 
00: 5001 
oc1gd2l 
0018041 


0018081 
001BDCI 
ocisEol 
001B8E81 


001BE81 
OG1RESI 
O01BEAl 
oo1seci 


o01BFOI 
*001RF4I 
0018F46I 
*O01BF AI 
001B8FCI 
*0uico0or 
ooicoal 
*001C06! 
0017081 
oo1coc! 


001c0E! 
COi1cOEI 


001c161 
001C141 
0c1C184I1 
Goicicl 
001C201 
O01ca4y 
001c28aI 
*oc1c2cr 
O01C2EI 
061C381 


0010387 
oo01c3al 


GENERATOR 06-177F02RO04M91A12 


0000 


0000 


30F0 
0000 


cé00 
4300 
c200 


0000 


0000 
BOFO 
0000 


cao0 
230E 
ca00 
2308 
ca00 
2308 
c8o0 
2305 
c800 
23502 
b000 


18¥0 


9000 
4000 
cau0 
4000 
4H1EG 
£620 
4130 
4840 
2134 
c200 


0000 


00006 


1BD01 


1BD81I 


4632 
8030 
8004 


1BE8T 


1BEo1 


4638 
4633 
4635 
4636 
4637 


1COEI 


1C101 
B0AC 
3030 
a0A2 
FC9OC 
8092 
FC9E 
850E 


8006 


1C3at 


=001C101 
=001BE81 


=001CCOI 


=O001CBEI 
=0014B8CI1 
=001CB6I 
=0018Cé6I 
=00220AI 


=001C3a1 


3059 
3060 
3061 
3062 
3U63 
3064 
3065 


3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
S074 
3075 
3076 


3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3387 
3088 
3089 
3090 
3091 
3092 
3U93 
3094 
3095 
3096 
3097 
$098 
3099 
3100 
3lo1 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 


MCHMAL 


MCHPSW 


McH1 
PFAIL 


PFL 


BNDYERR 
DIVFLT 
ToVeU 
MACINT 
SVCERR 


INTER 


PSWE 
ERROR 


sss 


NOEOJ 
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1sPFAIL 
MCHPSW 


8 
x 


ADC#2 
X*0000",.x*30F0* 


A(MCH1) 


X*3000°*,2(MCH1) 


ROeC’F2¢ 
PSwE 
PFL 

8 

* 


ADCr2 


X*9000*,x*BOFDO? 


A(PFAIL) 


X*p000*,Z(PFAIL) 


RO,.C*Fas 
PSWE 
RO,C*FZe 
PSwE 
RO,Cfese 
PswEe 
RO,C*’FGs 
PSwE 
ROC*FT?# 
PSwE 


x 
ADC#2 
RO 


RF «SCRAP 
x'4or 


* 
RO.sERPTSS 
ROeX* 30308 
ROeERPToO 
RE,CRLE 
R2,ERPT 
R3,PRINT 
R4 -EQUFLS 
YESEQU 
NOEOJ 

8 

* 

aoce2 
X*0000",x'30F0! 


15213357 411713/81 


BOUNDARY VIOLATION 
DIVIDE FAULT 
I/O Q@UEVE OVERFLOW 
MAC INTERRUPT 


SVc INTERRUPT 


RETURN TO WHERE INTERRUPTED 


RETURN TO WHERE INTERRUPTED 


00 CR/LF 


SHOULD E0J BE PRINTED 7? 
YES 
NO 


49630960 
“DG30970 
MO0G630980 
MGG39990 
M0631000 
M0G310106 
40631920 


MO0G631030 
MOG31040 
MDG316050 
40631060 
M0631970 
m0631080 
mDG31090 
40631100 
“0631110 
40631120 
60631130 


M0631140 
40631150 
mDG31160 
406312179 
“0631180 
M0631199 
0631200 
m™9631210 
40631220 
MDG31230 
MDG31245 
M0G631250 
MO631260 
“06312706 
40631280 
4D631290 
M)531300 
m9G631310 
vUG631320 
M0631330 
MDG631340 
mDG31550 
0631360 
0631370 
™0G31380 
M0631399 
M0G631400 
MOG31410 
M0G31420 
MNG31430 
MDG3144Q 
M0G314%59 
0631460 
M0G631470 
m0G631480 


MAD GENERATOR 06-177FO02R04M91A13 


o01c3Alr 
ooic3cI 


o01c401 
oo1c4al 


901c4alI 
001Cc4sI 
O01c4aAl 
0ag1c4cl 


O07C50L 
001C541 
001C581 
001CS5cI 


oo1cé6o! 
o01céal 
001Cé6cr 


O0icéEI 
oo01c72I 
oo1c74! 
001C781 
o01c7crI 
001c8a0T 


o01csa4K1 
001c8et 


oo01cact 
00;,c901 
001c94I 
coicgal 
HoicgAl 
o01c9EI 
eo1cAe2t 
001CasI 
004CABI 
oo1icact! 
o001ceor 
oo1cBal 


30F0 
0009 


0000 
c200 


0000 


0000 
30F0 
0000 


41E0 
E620 
4130 
4300 


GALE 
5445 
ODOA 


0000 
45A0 
2135 
c8l1o0 
4300 
C810 
4300 


c8i0 
4300 


C500 
4280 
c500 
218A 
C500 
4280 
C500 
2186 
8300 
c4co 
03035 
2609 


o0g9cl 


1C4CI 
A004 


1C4@lI 


1CSo] 


FC68 
8008 
FC6A 
E43c 


4229 
4420 


1C6EI 
8268 


OOEE 
8058 
OOEF 
8050 


oo0ED 
A048 


0030 
FCEU 
003A 


9041 
FCD2 
0047 


FCCAa 
o00F 


=001c4slI 


20018BCI 
=001C6aI 
=0018C6I1 
=00009CI 


ulu2 4F52 


sQQ1EDAI 


=001CD4I 


=z001CO4I 


=001CD41 


20019741 


20019741 


=Q019741 


3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 


3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
313n 
3131 
3132 


3133 
3134 
3135 
3136 
3137 
3138 
3139 
3149 
3141 
3142 
3143 
3144 
3245 
3146 
3147 
3148 
31493 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3156 
3159 
3160 
3161 
3162 


YESEQYJ 


ERRPSW 


TS uHXCO 


EQu 
CLH 
BNES 
LHI 
8 
LHI 
B 


LHI 
B 


A(REOTTY) 


¥*3000",Z(REDTTY) 


=x 
ERRPSW 
8 

* 
ADC=+2 


X*0000t,x*30F0° 


A(PJABT) 


X*3000*,2(PUABT) 


RE CRLE 


RA,OUTDEVs2 


IpeVvOu 
R1 X'EEr 
ERRA 
R1ieX*EFe 
ERRA 


R1ieX*Eps 
ERRA 


15:13:57 11/13/81 


DO CR/LF 


IS IT OUTDEV ADDRESS DU ? 
NO 
YES 


INDEV ADDRESS 


DIRECTORY FULL 


THIS ROUTINE WILL CHECK THE VALUE IN RO TO BE SURE IT x8 A 


SHXCO 


TSNUM 


ISAF 


x 

* 

* 

* 

* VALIO HEX CHARACTER, 
* 

* 

I 


CLHI ROeX*SG6e 
BL QUEST 
CLHI ROeX*3Ae 
BLS ISNUM 
CLHI ROoX*h1e 
BL QuEST 
CLHI ROeX*HT® 
BLS ISAF 

B QUEST 
NHT RO»X*OF® 
BR R3 

AIS RO,9 


IF IT IS IT WILL BE CONVERTED To HEX. 


NUMBER ? 

NO 

MAYBE = NUMBER ? 
YES 


An~F? 


MAKE A HEX NUMBER 


M0G631490 
mM0G631500 
m0631510 
MDG31520 
M0G31539 
MO0G31540 
m9G631550 
MDG31560 
MDG631570 
40631580 


M0G31590 
M0G631600 
M0G31616 
m0631620 
MUG31630 
M0G31640 
M063165¢ 
MDG31i660 
MDG31670 
M0G31680 


mOG3169° 


MDG31700 
mDG631710 
M0G631720 
§DG31730 
MOG31740 
4D631750 
MDG31760 
MDG31770 
m0G317680 
M0G31790 
m0G631800 
M0G31810 
MD631820 
MDG31830 
M0G31840 
MD631850 
M0G31660 
MD631870 
M0631880 
MDG31890 
M0631900 
MDG31910 
MDG31920 
M0631936 
MDG31949 
406312950 
4DG31969 
M0G631976 
“0631980 
MDG3199¢ 


MMD 


001CcB41 


oo01cB6él 
O01CBET 
o04ccor 
ociccal 
ooicc4l 
ooicccl 
oo1co4l 
o01Cc06I 
001cDdDalI 
ooicDal 
oo1rcoctr 
o01CDEI 
901CE01 
001CE2I 
O01CE4I 


oo1cEé6l 
oo01cEsl 
oo1cEecI 
ooLCcFOl 
oo01cr2l 
ooicFal 
001CF6l 
O0icFAI 
OO0icFEI 
V04902aT 


GENERATOR 


2204 


4552 
444y 
5353 
ODOA 
3031 
3839 
080A 
2304 
0a0B 
2302 
080C 
1108 
0601 
2413 
2425 


0420 
0332 
0231 
1004 
2711 
2218 
41E0 
£620 
4130 
4300 


5246 


3233 
4142 


FFDS8 
FFCE 


FBC2 
FFB8 
FBC4 
FF22 


06-177FO2RO04NS1A13 


5220 2020 


‘3435 3657 


4344 4546 


=zO091CC4l 
=001CBEI 


=0018BCI 
=001CBé6lI 
=0018C6I 
=001C231 


3163 
3164 
3165 
3166 
3167 
3168 
316° 
3170 
3171 
3172 
3173 
3174 
3175 


3176 
3177 
3176 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 


BS 
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ISNUM 


C*ERROR ¢ 

c*o0° 

c*ss* 

x*poa’ 
C*9123456789A8CDEF * 


RO,RA 
ERR 
RO.RB 
ERR 

RO RC 
RO,8 
Ro,R1 
R15 
R2eXter 


R2,R0 
R3,ASCI(R?) 
R3.ERPTHO(R1) 
RO4 

Riel 

ERRI 

RE,CRLF 
R2.ERPYT 
R3.PRINT 

$ss 


DO CR/LF 


19313357 


11/13/81 


MOG32000 
M9G632010 
MDG6S2020 
M0G32030 
MNG32040 
M0G32050 
40632960 
MOG3S2U70 
MDG32080 
4DG32090 
MDG32100 
™96352110 
40632120 


MDG32130 
40632140 
"0632150 
M0632160 
“DG32176 
40632180 
MOG632190 
MDG32200 
MD632210 
¥DG32220 
MOG32230 
MOG322490 
mD0632250 
M"632260 
“DG32270 
8DG32280 
MDG32290 
MDG632300 
406323510 
#0632520 
MDG32330 


MMD 


MAG 


0010061 
001D0Alr 
60100cCI 
001010 
0010121 


0010161. 
0010181. 


OO1D1LAI 
o01p1CI 
0010205 
00102aTr 
001026f% 


ANAAMOAAT 
v « 


Vawen 


o01DeclI 
00102E.I 


o001030T 
60103ear 
oCo1D34I 
0010361 
00103al 
00103cI 
O01D03EI 
0010401 
001n42I 
0010441 
0010461 
001048! 
OO1D4Al 
O01D4EL 
0010521 
0010561 
601058! 


GENERATOR 06-177FO02RO04MN91A13 


TAPE 


0000 
0000 
0000 
0060 


0316 
2420 
D330 
9423 
EC20 


9019 
919C 


2282 
c850 
2464 
c&70 
cao 
244g 
9E24 
9A39 


9825 
9A39 
9827 
BE10 
c&2o 
2145 
9029 
2081 
9E24 
0305 
9019 
2081 
0615 
C150 
4300 
0009 
0000 


ROOT LOADER 
oO00A 
0008 
OOOF 
Q00F 
oo7a 
n07D 


0008 


0200 


O26F 
0030 


0079 


0000 
ooco 
0100 


3196 
3199 
3200 
$201 
3202 


3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3236 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 


R10 
Ril 
R14 
R15 


MTB00T 


* 
MTBOOTI 


x 


MTBOOT2 


R1,R9 
R92 


MTBOOT1 
R5.X%*100! 
R6,1 
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SET TAPE DEVICE ADORESS 


x 

PICK UP SELCH ADDRESS 
(R2)="SSO0" OR *O0000SS00° 

IF 16 BITe (R2eR3}=400SS+0000' 
IF 32 BIT. (R2)=(R3)=eO00000SS* 
STATUS CHECK 

NO HoTION BIT TO CARRY 

LS BYTE OF RO = OO 

WAYT FOR NO-MOTION 

LOAD START ADDRESS 

BXLE INCREMENT 


R7sMTLOADE-MTLOADS+X°100" LOAD END ADDRESS 


ROeX* 308 
RS 
R2,R4 
R3,R9 


R2,R5 
R3,R9 
R2,R7 
RL eX*79¢ 
Re,R0 
MTBOOT2 
R2,R9 
Sel 
R2eR4 
RS 
R1-R9 
Bel 
R1,C0(R5) 


SELCH READ COMMAND 

SELCH STOP COMMAND 

SELCH STOP 

MS BYTE OF 3 BYTE ADDRESS 
R3=SELCH ADDRESS IF 32 BIT HOST 
LS 2 BYTES OF START ADDRESS 

MS BYTE OF 3 BYTE END ADDRESS 
LS 2 BYTES OF END ADDRESS 

MAG TAPE WRITE 

SELCH GO 

FALSE SYNC = NO SELCH 

ELSE, WAIT FOR SELCH NOT BUSY 
LOOP ON BUSY 

SELCH STOP 

BRANCHs START CODE JUST LOADED 
MAG TAPE STATUS 

LOoP ON BUSY 

READ A BYTE 


R5eMTBOOT2-MTBOOT+x "S80" DECREMENT INDEX, LOOP 


x*190° 
0000 
0000 


60 To LOAD START ADRS 
FILLER 
FILLER 


ROY 
Ray 
RO 
RO4 
ROw 
ROG 
RO4& 
ROu 
ROY 
ROY 
Ro 
Row 
ROU 
ROY 
R04 
Rou 
Roy 
ROY 
Row 
ROY 
ROG 
ROw 
R04 
ROY 
ROY 
ROY 
ROY 
R04 
ROY 
Ro 
ROW 
ROW 
ROW 
ROY 
ROY 


MMD GENERATOR 06«177F02R04H91A13 


MAG TAPE BOOT LOADER 


o01D5Aal 
o01p5e1 
0010601 
0010621 
001066! 
001068! 
00106crI 
0o01D6Er 
0010721 
001076! 
00107al1 
OO1D7TETL 
901080L 
0010821 
001n841 
0610861 
0010881 
o0108al 
$01n8EI 
9910901 
0010921 
0910941 
001n96e! 
00109al 
00109CcI 


oo109ET 
091DAer 
oo1nAGI 
o091DAal 
OO1BDAAL 
oc1Dacl! 
copAET 


cé10 
OA11 
0631 
0310 
9019 
C390 
2233 
C8FO 
c8eo 


D390 


c590 
2333 
90F8 
90E8 
9E1E 
SELF 
9019 
C390 
2253 
0833 
2336 
SELF 
9019 
c390 
2233 


C850 
c&60 
9E24 
2490 
SA39 
9825 
9A39 


8000 


0078 
06810 
4023 
c9co 


0679 
OO0A1 


0010 


0010 


0270 
Q2A3 


3240 
3241 
3242 
3243 
3244 


S246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3274 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
32793 
3286 
3281 
3262 
320% 
3284 
3285 
3286 
32a7 
3288 
3289 
3290 
3291 
3292 


15313257 11713781 


THE FIRST PART OF THE BOOT LOADER RESIDES IN MEMORY 


FROM LOCATION x*80* To X*CF*, 
SEQUENCE. 


IT IS LOADED BY THE 
WHEN CONTROL IS TRANSFERRED TO IT, 


THAT CODE READS IN THIS NEXT SECTION WHICH STARTS 
AT ADORESS x*100'. 


* 
* 
*« X'59° 
* 
* 


TLOADS 


MTLOADSO 


MTLOADS1 


MTLOAD2 


MYTLOADS 


TLOADS 


ON INPUT>s 


(RO}=SELCH READ COMMAND, x*30° 


(R1)=SMAG TAPE DEVICE ADORESS 


(R2)=SELCH ADDRESS 
(R5)=0 IF 16 BIT HOST 


(R3)=SELCH ADORESS IF 32 BIT HOST 


(R&)=SELCH STOP COMMANDe x'08? 
(rR6)=1 

LHI RisX*8000? FOR TARGET CHECK 

AAR R1,R2 =0000 OR FFFFOODN 

OAR R3,R1 =0000 OR FFFFOOSS 

L8 R1ieX* 7a? GET TAPE DEVICE ADORESS 

SSR R1eR9 MAG TAPE STATUS 

THI ROeX*108 TEST FOR NO MOTION 

Bés MTLOADSO WAIT FOR IT 

LHI Ri5deX*"Aag23e FF COMMANDS 

LHI R14eX*cocot DISARM COMMaNDS 

LB RIX*79e GET READ ComMAND 

CLHI RO_X*A1® 800/1600 8PI? 

BES MTLOADS? SKIP IF YES 

SRHLS R15¢8 FF COMMAND FOR 6250 

SRHLS R148 OISSRM COMMAND FOR 6250 

ocr R1,R14 DISARM 

ocr Ri,R15 FORWARD FILE MARK 

SSR R1,R9 x 

THI R9eX'109 NO MOTION? 

Bzs MTLOAD2 NO. WAIT 

LDAR R3sR3 CHECK HOST 

82S MTLOADY SKIP IF 16 BIT HOST 

OCR RieR15 ELSE, ANOTHER FORWARD FILE 

SSR R1 «RS * 

THI ROeX!108 NO MOTION CHECK 

BZSs MTLOADZ * 
TAPE IS NOW IN POSITION AT THE 
BEGINNING oF THE 1ST oR 2ND 
PROGRAM, DEPENDING ON THE HOST. 
NEXT, READ IN THAT PROGRAMSS 
PROGRAM DEFINITION BLOCK (PDB) 

LHI R5eBOOTEN-MTLOADS+X'100' START ADDRESS 

LHI R6+«BOOTFN=-MTLOADS+xX'133" END ANORESS 

ocR R2eR4 SELCH STOP 

LIS R9,0 * 

WOR R3.RP MS BYTE OF % BYTE START ADRS 

WHR R2.RS LS 2 BYTES OF START ADRS 

WOR R3,R9 MS BYTE OF 3 BYTE END AORS 


ROY 
ROY 
RQ4 
RQu 
ROY 


Ro 
Rog 
RO4 
ROY 
RO 
Row 
ROU 
ROY 
ROY 
ROY 
Row 
RO4 
ROG 
ROW 
ROY 
Ro4 
Roe 
RO4 
RO4 
Raa 
ROW 
Roy 
ROY 
RO4 
RGO¥4 
ROY 
Rog 
ROG 
204 
Row 
RAY 
ROW 
Rag 
ROY 
Ra4 
Row 
Rou 
Reus 
Rou 
ROY 
Ro4 
ROu 
Kou 
RoW 
ROY 
ROU 
ROG 


MMOD 
MAG 


a01080f 
ooinBbal 
OO01DB861 
oo10Bal 
OC1DBAI 
00108crI 
oo01oB8eT 
oo010cor 
ooincal 
oo1ncYl 
0010Cé6I 
ooincal 
0010ccrI 
0010CEI 
ooioDO! 
aoinnal 
0010041 
001006! 
oa1D0al 
90100cI 
CO1LDEOI 
COIDES!I 
OO1DE6I 
oo1peal 
001DECcI 
OOIDEET 


oO1DFOr 
0010Far 
oo10F4I 
oo1DF6I 
oo1o0Fst 
oo10FAl 
OO10FEL 
co1e0al 
oo1f04) 
OO1E0SI 
oo1E0aAl 
Oo1£0cr 


OO1E0ET 
001E101 
oo1F12a! 
oo1e14!t 
oo1ei1al 


O01E1Ci 
QOLELETL 
oO, E204 
oo1e2al 
Ou1E24] 
o01e26! 
0O1E281 


GENERATOR 06-177F02RG64M91A13 


TAPE BOOT LOADER 


9826 
DE1o 
SE20 
2145 
9023 
2081 
SE24 
250A 
9019 
2081 
DB15 
2651 
C565 
2286 
9019 
2170 
9019 
C390 
2233 
D390 
p3So0 
9158 
D360 
06596 
0833 
2334 


3479 
0675 
2302 
0875 
0857 
D3A0 
0360 
9466 
0380 
0668 
0833 
2333 


34BaA 


0079 


2000 


0010 


0282 
G283 


0264 


0265 
0286 


n287 


0010 
O0FF 


MTLOADS 


MTLOADG 


MTLOADGA 
MTLOAD6B 


MTLOAD? 


MTLOAD7A 


LDAR 
LDAR 
L8 
LB 
EXBR 
LB 
OAR 
LDAR 
Bzs 


R2,.R6 
R1,X*798 
R2,R0 
MTLOADS 
R2,R9 
8el 
R2-R4% 
MYTLOADGE 
R1,R9 
Bet 
R1,0(R5) 
R5.1 
R6-R5S 
MTLOADS5 
Ri,R9 
720 
R1-RI 

RO X*1lo-e 
MTLOADE 
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LS 2 BYTES OF END aDDRESS 
START TAPE 

SELCH 60 

SKIP IF FALSE SYNC 
ELSE WAIT FOR SELCH 
TO 60 NON=aUSY 

THEN STOP THE SELCH 
= 

MAG TAPE STATUS 
WATT FOR NON-BUST 
READ 

BUMP INDEX 

DONE? 

NO, LOOP 

FINAL STATUS 

HANG ON ERROR 
TRANSFER COMPLETE 
WAIT FOR NO MOTION 
WATT FOR NO MOTION 


R9+BOOTEN-MTLOADS+#X'100'418 * 
R5.BOOTEN=MTLOADS+K"°100'+19 « 


R5,8 


POSITION BITS 16°23 


R6+BOOTFN-MTLOADS+X°100'4+20 »* 


R5,R6 
R3,R3 
MTLOADGA 
R7,R9 
3479 
R7,R5 
MTLOAD6R 
R7,R5 
R5,R7 


(R9eR5)=PROGRAM START ADORESS 
TEST HOST 

SKIP IF 16 BIT 
(R7)}2z*00xxX00008 


a 
(R7)=*OOXXYY2Z2? 

= 

SAVE START ADORESS 
(R5)=START ADORESS 


R10 SBOOTEN=MTLOADS+X "1009421 * 
R6 sBOOTEN=MTLOADS+X "100422 * 


R6sR6 


* 


R&,BO00TEN=-MTLOADS+X'100'+23 


R6& RB 
R3.R35 
MTLOAD7 
R1ieR1o 
34BA 
R6E,R11 
R&eRS 
R816 


R11+255¢R5) 


R6.R11 
MTLOAD7A 
RiieR6 
R2,R4 
R3.R8 
R2,R5 
RZ,.R1LO 


(R10.R6)=LOAD END ADORESS 
TEST HOST 

SKIP IF 16 BIT 

(R11) =*o00xx0000° 


bd 

(R6)s"GOXXyYyYZZ* 

START ADRS 

(R8)=0000 or 900000xXx 

START ADDRESS + 255 EqQuALs 
END ADORESS FOR THIS RETORD 
COMPARE TO END ADDRESS 

SKIP IF NOT LESS 

IF YES, USE REAL END ADORESS 
SELCH STOP 

MS BYTE OF ADDRESS 

OUTPUT START ADRS 

x 


RO 
R04 
ROU 
Roy 
Row 
R04 
RNG 
Rnuw 
Row 
RO& 
Pou 
ROU 
Row 
Ray 
ROu 
ROY 
ROG 
Rou 
Rou 
R04 
Roe 
R04 
ROY 
Rou 
ROW 
RO4 
ROW 
Ro¥ 
Row 
ROY 
ROY 
Row 
Rou 
ROu 
ROY 
Row 
RO4u 
ROY 
Row 
ROY 
RQ 
ROY 
ROW 
ROY 
ROY 
Rau 
ROY 
Rou 
RGu 
Row 
RO4 
ROG 
Ray 


MAD 
MAG 


oo1e2al 
oo1e2cT 
6016301 
o91F3alI 
OO1F341 
GO1E361 
oo1E3al 
OOLE SAE 
eo1escl 
COLE3EI 
oo1F 40 
GO1E446T 
OOLE46I 
oo1e4sl 
OGiE4al 
OO1E4ET 
0016521 
OO1E54!1 
oo01E561 
o001F58alI 
COLESATI 
“001E5CI 
o01g60! 
co1€62I1 
GOO01E641 
o01F66!I 
oc1e6Al 
eo1Fécl 
OO1F 701 


NOLE72I 
O01F 741 
OO1E78I 
OU1FE7AI 
ooL1e7cl 
OO1F7EI 
0016801 
oo1ea2l 
OOF AGI 
OO1E8Bl 
oo,Fracti 
oo1£901 
OCLES4T 
N01E961 
QO1E9AT 
go.e9cl 
OC1E9EL 
OOLFA2T 
oo1e aul 
NNT AAT 
OO1EAAI 
OO1E ACI 
O001FBO0I 


GENERATOR 06-177F02R04N91A13 


TAPE 


982, 
DE1O 
5E20 
2145 
9029 
2081 
gE24 
2308 
9019 
2081 
0B15 
2651 
0585 
2286 
0390 
c590 
2334 
9019 
212) 
2305 
9019 
C330 
2138 
9095 
2260 
c85Ar 
0556 
4280 
0857 


24A0 
0387 
O7AB 
2671 
0567 
2285 
9019 
C330 
2233 
c8&7o0 
0390 
C590 
2333 
c870 
9E17 
9019 
c390 
2233 
0370 
OSTA 
0335 
cé1o 
24A1 


BOOT LOADER 


0079 


0060 


n079 
OOAL 


a04o 


0001 


0188 


0000 


0010 
0038 
0079 
OOAL 


00En 


0010 


1288 


NOEE 


3346 
3347 
3348 
3349 
3356 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3367 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
338r 
3381 
3382 
3383 
53584 
3385 
3386 
3387 
3388 
3389 
3399 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 


MTLOADS 


MTLOADS 


MTLOADSA 


MTLOAD9IB 


MTLOADSC 


MTLOAD10 
* 


MTLOADI1 


MTLOAD12 


MTLOADI3 
MTLOAD14 


LDOAR 


LIS - 
LB 
XAR 
AIS 
CLAR 
BNLS 
SSR 
THI 
BZS 
LHI 
LB 
CLHI 
BES 
LHI 
ocR 
SSR 
THI 
B2S 
LB 
CLAR 
BER 
LHI 
LIS 


PAGE 63 15313357 11/13781 


R2,R11 OUTPUT END ADRS 
R1eX*79% MAG TAPE START 
R2.RO SELCH START 


MTLOADS SKIP IF FALSE SYNC 

R2,R9 * 

Bel WAIT ON SELCH BUSY 

R2.R4 SELCH STOP 

MTLOADO * 

R1,.R9 MAG TAPE STATUS 

Gel LOOP ON BUSY 

R1.0(R5) REaD BYTES 

R5.1 BUMP ADDRESS 

R11¢eR5 DONE CHECK 

MTLOADS LOOP GN RECORD 

R9O,X*798 GET READ COMMAND 

ROeX*Al* 800/1600 BPI? 

MTLOAD9R SKIP IF YES 

R1i,RI 6250 STATUS 

2.MTLOAN10 DONE IF EOF. 

ATLOADSE ELSE KEEP READING 

Ri,R9 * 

RIO X*4Oe EOF? 

MTLOADI0 DONE IF YES 

R9,5 NO MoTION CHECK 

MTLOADS WAIT FOR IT 

R5e1(R113) NEXT START ADRS 

R5.R6 CoOmPaReE TO END ADDRESS 

MTLOAD7-MTLOADS+X°100" LOOP 

R5,R7 START ADORESS 
(R6)sEND ADDRESS 

R1098 CHECKSUM ACCUMULATOR 

R11¢O8(R7) * 

R10eR11 CALCULATE CHECKSUA 

R7,l «x 

R6,R7 x 

MTLOAD1i1 * 

R1¢eR9 «x 

RO X*1oOe NO MOTION CHECK 

MTLOAD1I92 x 

R7—X*38e * 

ROX" 799 GET READ COMMAND 

ROX Als 800/1600 BPI? 

MTLOAD13 SKIP IF YES 

R7eX*Eoe Rw COMMAND FOR 6250 

R1,R7 REWIND THE TAPE 

R1¢eR9 * 

R9eX*10e NO MOTION CHECK 

MTLOADI4 * 


R7eBOOTEN-MTLOADS+X*100'+24 * 


R7,R10 CHECK CHECKSUM 
R5 GO IF OK 
R1ieX*EEe * 

R1i0e1 * 


Row 
RO 
ROY 
ROY 
Ray 
Rog 
RQOu 
ROG 
204 
RN4 
Row 
ROW 
RO4 
ROG 
Row 
ROY 
ROY 
ROY 
Ray 
RO 
ROQu 
R04 
ROY 
R44 
RO 
PQs 
ROY 
RO4 
204 
ROY 
RNa 
R04 
R04 
RAY 
Row 
ROa 
ROW 
RO4 
Rau 
Ro¥y 
Row 
R04 
R04 
RoW 
ROY 
RO 
ROY 
ROY 
ROU 
Rou 
ROY 
ROG 
ROG 


MMD 
MAG 


QO1EB2T 
oo1E86! 
ec1eBal 
OO1EBAI 
oo1e8cl 
OG1EBEI 
oogiFcolr 
oo1ECal 
o01ECcél 
oo1ecal 


GENERATOR 096-177F02R04M91A13 


TAPE 


c&Bo 
9EAB 
9AAY 
24E0 
SAAE 
SAAE 
SAAE 
C8BOo 
SEAB 
2200 
occa 
0000 


900T LOADER 


0040 


0080 


1EC9I 
1ECATI 


3399 
3400 
34nt 
3402 
3403 
3404 
3405 


- Bane 


3407 
3408 
3409 
3410 
3411 


MTLOADE 
BoOTEN 


R11ieX*4ge 
R10eR11 
R1io0+R1 
R140 
R10eR1y 
R1io+«R14 
Rio.Ri4 
RileX*sag? 
R10eR11 

* 

xod 
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ISPLAY IN INCREMENTAL MODE 


“* HH RH OH 


NORMAL MODE 
HANG ON CHECKSUM ERROR 
* 


RO4 
RO4 
Row 
RO4 
ROY 
ROW 
Ro4 
Row 
RO4 
Roy 
Ro4 


MDG33830 


MMD 


cg1ecc! 
s¢1eccl 
d01ECEL 


O01£001 
OO1ED0T 
oo1eDal 


oo1e981 
DOLEDSI 
IGLEDAL 
S0.£DcI 
OG1EDET 


QO1EEO! 
OO1FEOL 
OO1EE2I 
OO1EE4I 
OO1EE6I 


OO1EESI 
Oo1Eeal 
OO1EEAI 
co1eccl 
OO1EEEL 


oo1EFO! 
OO1EFO! 


oo1F2al 
001F281 


O01F301 
co1ré6sl 
001F68l 


GoiFgscl 
oo1F9CI 
oo209cI 
CO2Z0A4I 
oo2oacl 
0021AcI 
odz1Ac!I 
ooeip4al 
g071BaI 
oo218Ccr 
og21colr 
oo2icel 
o002i1Cal 
oo2iccl 
0021001 


GENERATOR 96-177F02R04M91413 


3413 
3414 
3415 
3416 
0000 3447 
0000 
3448 
3419 
0000 3420 
0000 
3421 
34202 
00006 3423 
0800 
0000 3404 
oosg 
3425 
3496 
0000 3427 
009 
0009 3428 
0000 
3429 
3435 
FFFE 3431 
FFFE 3430 
FFFF 3433 
FFFF 3434 
0000 1EEFI 3435 
3436 
3437 
343a 
3439 
34H 
3441 
3442 
3443 
3444 
3445 
0000 1F6a! 3446 
3447 
5448 
3449 
3450 
3451 
34502 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 


* 


* 


OUTDEV 


INDEV 


* 
PGMOPN 
PGMIPN 


LNZB 
* 


INBUF 
* 


cmp 
¥ 
FFBUF 


POB 
SEQNAM 


wri BUF 
OIRPRM 
NXTPRM™ 
DIRECT 


ocOPyY 
ADDRES 
Fa0D 
WRTEND 
PGMNUM 
TRADEN 
MAXCYL 
MISTRN 
UPDTRN 


ALIGN 4 
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oc x?0000*,x*0000° 


ALIGN 4 


oc x'0000*,x*'0000* 


ALIGN 8 


oc x*0000*%,x*0000°* 


oc xX*0000*,x*o000° 


ALIGN 8 


oc X*0000*,x*0000* 


oc X*9000",x*'0000° 


Eau xe] 
ALIGN 8 
DS 50 
ALIGN 8 
oS 8 
OS 51 
ALIGN & 
DS 51 
FQuU PDB 
ALIGN 4 
os 256 
os 8 
os & 
DS 256 
ALIGN 4 
OS 8 
oS 4 
DS 4 
DS 4 
os 4 
os 4 
OS 4 
os 4 
os 4 


15213357 
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40633850 
M0G33860 
M0G33870 
M0G633880 
M0333890 


MNG33900 
MOG633910 
mD0G33920 


M0G3393n 
M06339486 
MDG33950 


"0633960 


M9G33970 
40633980 
M0G33990 


MOG634000 


m0e34010 
m0634020 
MDG340306 
MDG34040 
M9634050 
MDG34060 
™0634970 
™9G634080 
m0G634090 
M9G34100 
™0634110 
MDG34120 
MD0G34130 
NOG34140 
M0G34%150 
MO0G34160 
~DG34170 
MDG34180 
M0G34190 
MDG34200 
M5634210 
M0G34220 
MDG34239 
MDG34240 
MNG34250 
M0G34260 
MOG34279 
MD0G34280 
MDG34290 
MD0G34500 
MDG34310 
M0G34320 
M0G34330 
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0021041 3462 cCPYFLG os 4 MOGS4340 
0021D81 3463 OTDONE oS 4 m0G34350 
00210CI 3464 sTADD os 4 MO0G34360 
oO2z1E0! 3465 EQVRTN os 4 M0G34370 
OOpLEGT 3466 avyARTN os 4 mDG34380 
o021fal 3467 OTRPRN Ds 4 m5334390 
oo21ec! 3468 DrRTN ps 4 MDG34400 
OO21F0I 3469 PGMUPN os 4 MDG634416 
o021F4I1 3470 CONSTA os 2 MDG34420 
0021F6I 3471 FFBFFL os 2 MOG34430 
OO21FSE 3472 MTCMD Ds 2 MOG 34440 
OO21F Al 3473 BKSPFL DS 2 mDG34450 
oo021F cI 3474 ScRAP os 2 MDG34460 
GOOF ET 3475 IoFLAG os 2 MOG34479 
0022001 3476 CYL os 2 MDG34480 
0022021 3477 HEAD os 2 M0G634499 
0022041 3478 orscmDdD DS 2 MNG34500 
0022061 3479 SFLIND os 2 M0G634510 
oo220aI 348c SELERR os 2 MD634520 
o0220aAI 3481 EOYFLG os 2 MDG34530 
00220cI 342 aAfTRY Ds 2 MOG34540 
00220¢1 3483 CuUTRKDEN DS 2 mDG34550 
co22101 3484 CYUMAxCYL DS 2 MDG34560 
0022121 3485 INTADD ODS 2 mOG34570 
0022141 3486 COoPSEC DS 2 mDG34580 
002216! 34a7 LSTBLK os 2 LAST COPY BLOCK LENGTH MOG34590 
0022181 34a8 NuMBLK bs 2 NUMBER OF FULL SLOCKS MOG34600 
oo221al 3489 CuURBLK bs 2 CURRENT BLOCK SIZE MDG34610 
oo221cI 349906 RWDEV pS 2 MDG34620 
oo221E1 3491 UPDFLG os 2 M0G34630 
0022201 3492 AVAFLG os 2 MNG34640 
0022241 3493 ALIGN 4 “0634659 
Q0222K1 3494 DIMOST Ds 6 MOG34660 
OC222A1 3495 DOIDOIN os 6 MDG34670 
0022301 3496 orDcouU Ds 6 MDG34680 
0022361 ' 3497 IFNZ2 agcw2 MOG34690 
0022381 3498 ALIGN 8 “DG34700 

3499 ENOC MOG34710 
0022381 3500 oLOPSsw ps 8 MO0G34720 
oo224o0l 3501 REGSAV Ds 512 MDG34730 

3502 * MOG34740 
oOz4KKOr 3503 END MO0G34750 
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ASSEMBLED BY CAL 03-066R08-00 (32eaIT) 
START OPTIONS: T=32.eERLST 
NO CAL ERRORS 
NO CAL WARNINGS 
5 PASSES 
TABLE SPACE USED ° 16K 
ARSTOP 0000 9000 
ADC coo0 0004 7 104 234 2166 2172 2317 
2958 3048 3064 3075 3092 
ADDRES 0000 218471 2838 2859 2454 
ARFLT 0000 1BA6! 2977 3044% 
ASCI ogoo 1CC4]r 31754 «3187 
AST 0000 195CI 108 2558 2638 
AVACON 0000 12nEr 1804 1805 1808+ 
AVACTN 0000 13047 1817 1620* 
AVACY1 0000 133CI 1834 1835 1838 
AVAEND 0000 13461 1823 1830 1841x 
AVAFLG 0000 22201 1772 1777 1813 3492« 
AvAIO0 0000 12c8r 1796 1801* 
AVATL 0000 10F41 1601 1632* 
AVATLO 0000 12767 1011 1304 1643 1650 1774 
AVAIL1 0000 12ECI 1790 1812% 
AVAIL4 0000 12961 1786% 1793 1800 
AVAIL4A 0000 12B2r 1785 1794 
AVAILS 00nd 12801 1780*« 1811 
AVAILE6 0000 13107 1822 182%" 
AVAILR 0000 126E1 1108 1129 1247 1278 1770* 
AVATLW coed 12761 1775 
AVALL1 0000 127CI 1773 1778* 
AVANCY g000 13267 1826 1831s 
AVARTN 0000 21E4I 1779 1841 3466% 
AVAWRT 0000 12FCI 1814 1818 
BBFB e000 0350: 420 uyBx 
R2EGIN 0c00 O04Ccr 78x 30u1 
3F ooc0 o344y 203 417% 
REFIT 0000 O4641 507 525% 
aFTT1 ocog 04661 527« 
QFIT4 0000 04761 528 531* 
4KFM C000 18A71 529 533 538 639 956 
3x EMNM 0000 198Er 526 530 534 2686% 2692 
akKSP coco 16A01 522 931 939 1200 1470 
RKSPFL Ocno0 DIFATL 419 So7 532 B473x 
RNOYERR 0000 1BFOT 2994 3081* 
SOOTEN 0000 1ECAY 3286 32a7 3312 3313 3345 3410" 
30V 9000 1982T 2696 2701 
C300AD0R 0000 OO1E: 4&3 
CAR2NO 0000 OO3EY 66% 
ZTARRD ocod gOZzcl 65% 
CARRQ2S 0000 00481 73x 
CHK1L GOOG OFBROL 1530% 1534 
CHK2 0000 OFDAT 1542 1545* 1549 


MMD GENERATOR 06-177F02R04M91A13 


CHKCMD 
CHKIOL 
CHKIOF 
CLEAR 
CLIF2ND 
CLIFADR 
CLIFRD 
CMD 
CMOAA 
CMDAA1 
cCMOAB 
CON2ND 
CONCMD 
cONDS1 
CONDSS 
CONMTL 
CONMTS 
CONMTX 
CONRAOR 
conrD 
CONR@2S 
CONSTA 
CONT4B 
CONT4C 
CONTSA 
CONTSS 
CONTDS 
CONWADR 
CONWRT 
coPDVE 
COPMTI 
coPSsEC 
copy 
coPyl 
coPr2 
COPYA 
coPYEV 
CPYFLG 
cPYMOR 
CREA 
CREA 
CREAS 
CREA 
CREAG 
CREAER 
CREAXY 
CRECHK 
CREDITS 
CRLF 
CRT2ND 
eRTRD 
CRTRAYS 
CUMAXCYE 
CURALK 
CUTRKDEN 


co00 
0000 
0000 
0000 
0000 
0000 
0000 
o000 
6600 
o000 
0600 
0000 
0000 
0000 
0000 
0000 
o000 
0000 
0000 
0060 
0000 
0000 
o000 
0000 
0000 
0008 
0000 
oo00 
0000 
0000 
0900 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0090 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
occa 
0000 
0000 
0000 
0000 
oo0c 
oo0u 
0000 


O32A1 
03141 
o20Cr 
18R4T 
00361 
00161 
00341 
1F 281 
014481 
O14AY 
012E1 
00acI 
O02E1 
17381 
173C1 
16341 
164EI 
16341 
0026 
002A1 
00447 
21F41 
1506r 
15DAI 
16101 
16181 
17301 
00281 
o02Br 
OAF OL 
OB9EX 
22.41 
07121 
07921 
O7TA4I 
07401 
07601 
21041 
o7141 
oF4orY 
OF 641 
OFGEI 
108AT 
108CI 
1150] 
LOAET 
OF AAI 
103Ci 
18RCI 
00327 
00307 
ocusr 
22107 
227A1 
220ET 


354 
337 
306 
505 
62% 
39x 
61x 
150 
157 
166% 
155 
57x 
56« 
2328 
2335% 
2226x 
2231 
2217 
53« 
55% 
69" 
1408 
2171: 
2175 
2201 
2144 
2325 
54% 
Séx 
1138 
933% 
974 
205 
827 
847 
813 
818 
$71 
lls 
200 
1500 
1507% 
1595 
1599% 
1498 
1604 
1524 
972 
1603 
60% 
59x 
70x 
1649 
8935 
1179 


357% 
351% 
334% 
677 


2545% 


1719 
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2546 
154 160 169 172 175 
176 
30 
2593 2598 
119 2599 
2871 3470 
2207 2213% 
2618 
125 2619 
3466 
947 1226 
1644 5462 
1575« 
2557« 2662 2695 3102 3127 
1008 ii2s 1234 1277 1302 
1783 2284 2414 2469 2777 


11/13/81 


3441s 


3192 


3489% 
34B83% 


( 
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CYL 


CYLTAB 
5CcoOPY 


NELCHR 
JeEVoOU 
DICOMN 
NTO0 
“TDO11 
"1DO01X 
H1902x 
GIDOEE 
JIDOIN 


NIDOLB 
SIDONL 
ny900U 
“IMO 
nina. 
ormo1ix 
AIMOQ!X 
NIMOEE 
NIMOEV 
5jIMOLB 
SIMONL 
SIMONS 
NMIMONX 
NIMOP4 
NIMOPS 
AIMOPP 
JIMOSA 
*T“OSH 
mIMOSP 
7YMOST 
NIRECT 


STREUL 
ATROGM 
ATRPRM 
JIRPRN 
SIRTN 
NTSABL 
9ISC 
arscmMd 
CIVFLT 
DREAD 
SSCEND 
MSCERR 
GHSERRI 
QsSPcCMpD 
OTOONE 


0000 


0000 
ocg0G 


0000 
0000 
9000 
0000 
0000 
o000 
0000 
0000 
o000 


0000 
0000 
oe90 
0000 
0000 
C000 
eog0 
6000 
0000 
0000 
0000 
0000 
oG00 
0000 
ona0 
0000 
0000 
0000 
oc00 
0006 
0000 


0000 
0000 
9000 
0000 
oano 
0000 
o000 
0000 
0000 
0000 
oo0G 
ceco 
0000 
6000 
oo00 


22001 


O32E1 
2taci 


01787 
1C6ETI 
OBD21 
OC4AI 
ocFo! 
OCFSI 
OCDéI 
OD38r 
222aT 


OCcEO!I 
OCFOrI 
22305 
OA6CI 
OAA2ZT 
0C321 
oACCy 
OBB2I 
OC26r 
OADSI 
OAEST 
0c121 
OAAET 
OB90T 
OB2AT 
OB7ET 
OBASI 
OB76I 
OBACT 
22247 
20ACTI 


1C a4 
14021 
209C}3 
21E81 
21eCci 
LBAAT 
15cCI 
22041 
1BF6I 
18R6r 
176A 
1752] 
17601 
OAGAT 
21ps! 


549 
1429 
2001 

347 
1146 
1998 

135 
2227 
1203 

857 
1255 
1279 
1277 
1288 
1249 
1334 
1272 
1282 
1258 

856 
1113 
1130 
1128% 
1139 
1207 
1123 
1133 
1211 
1119 
1181 
1155 
1154 
1186 
1167 
1175 
1141 

556 
1323 
1685 
1954 

592 
1105 
1313 
1996 
1140 

502 
2106 
2100 
3083% 
2097 
23541 
2339 
2343 
1080 
1664 


1144 
1435 
2009 
358% 
1147 
2000 
1980 
2336 
1346 
1239% 
1258 
1289 
1286 
1306* 
1251 
1336 
12a80*% 
1287* 
1260 
1099 
1116* 
1230 
1137 
1195 
1209 
1131* 
1138 
1215 
1237 
1184 
1183 
1176* 
1192 
1172 
1193 
1143 
563 
1342 
1690 
1959 
1627 
L244 
1315 
2015 
1195 
673 
2164% 
2301 


2302 
2349*% 
234e% 
2346" 
1095 
1705 


1159 
1436 
2290 
1803 
4149 
2007 


2681 


1305 


1253 
3495* 


1262 


1227 


1221* 


1191 


11764 


1145 
568 
1343 
1692 
1959 
3142 
1995 
1633 
3467* 
3468 
1464 


3478x 


2548 


109a* 
34632 


1252 
1581 
2784 
1833 
1151 


3453 


2688 


1264 


1294 


1166 
1160 
1588 
1694 
1962 


1634 


2120 


2549 


1261 
1636 
2789 


1155 


2812 


1266 


1296 


1168 
1161 
1594 
1700 
1969 


1640 


2530" 


1268 


1298 


1172 
1165 
1599 
1712 
2002 


1671 


2531 


69 15213357 


1292 
1675 
2846 


1192 


1289 


1326 


349ux 
1169 
1605 
1722 
2008 


1673 


1295 


1801 


34 76% 


1205 


1291 


1328 


1173 
1617 
1735 
2010 


1676 


11/13/81 
1316 
18u8 


1986 


1293 


1330 


1208 
1635 
1914 
2012 


3449 


a 4 
1317 1327 
1A3gi 1838 
1988 499 
1307 21309 
3496% 

1212 1222 
1637 1639 
1916 1921 
3451 


1333 
19¢35 


1991 


1311 


1224 
1679 
1924 


1390 
1989 


1997 


1332 


1322 
1682 
1934 
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NTROON 
OTRIP 
QWRIT 
EMTRD 
FO. 
SOJFLG 


EOV 
EQVRTN 
FrOVX 
TRPT 
FRPTDO 
ERPTSS 
ERR 
FRR1I 
ERRA 


ERR 
ERRC 
ERROR 
7 RRPSW 


FWEM 
GETCHR 


6000 
oa00 
0000 
0000 
0900 
oonG 


0000 
0000 
e000 
00600 
0000 
09098 
00900 
0000 
0000 


0000 
0000 
on00 
0000 
0000 
0600 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0600 
0000 
0000 
00900 
0000 
oco0 
0000 
0000 
0000 
0000 
ocoo 
0060 
oca90 
9000 
e008 
ecod 
0000 
oGag 


oone 
0090 


11581 
1132] 
16B31 
16001 
177CY 
220AT 


16A8T 
21E01 
O4ACY 
1CB6I 
1CBEI 
1CCOi 
1CDET 
1CE4T 
1Cp41 


1CD8T 
1CDCI 
1C1QF 
1C48r 
17201 
16B9i 
18BAT 
18A9T 
05801 
O59AI 
o5e01 
21881 
OS4ET 
O4iET 
051Ctr 
21F6I 
1F301 
O374T 
OSE6I 
O4R2I 
OSFE2TI 
O4CEI 
OSCAI 
05281 
0502. 
04gat 
O3ECI 
04061 
O4OET 
04261 
63821 
LA20T 
lAloy 


18A6] 
1966T 


1017 
1648 
2099 
2185 
2277 
111 
3481 
642. 
2114 
543 
3103 
3101 
3099 
3177 
3184% 
630 
1837 
2819 
2401 
2408 
849 
3117 
2304 
2195 
25545 
2188 
204 
628 
633 
2177 
202 
506, 
574 
44s 
511 
$59 
454 
§04 
562, 
556 
555 
§66 
524 
§13 
465 
496 
499 
508s 
463% 
2813 
553 
1708 
509 
155 
756 


1331 
1652 
2543% 
2195 
2358 
45u 


1479 
2251 
546 
3171 
3172% 
3173* 
3179 
3191 
830 
1865 
2823 
2456 
2463 
1657 
3119* 
2316* 
2318 
2914 
2311 
622* 
631* 
637* 
292e 
446% 
517 
578 
477 
512 
491 
4g0* 
54 7x 
5384 
588 
595 
579 
571% 
536% 
4ugex 
500« 
502* 
535 
474 
2816 
1156 
1711 
252%" 
239 
811 


1653 


624 


1574 
3465 


3193 
5188 


3181 
880 
1919 
3138 
3178« 
318Q0* 
1743 
2552 


2528* 


3455 
521 


506 
516 


581* 


489 


1159 
1782 
2525 
300 
836 
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1663* 


659 865 963 1102 1241 


2268«% 


911 924 1002 1115 1177 
1949 2223 2233 2256 2345 
3140 3143 3176% 


2384 2442 2439 2467 3099% 


541 


540 596 3471 
519 S443% 


1318 1321 1338 1341 1393 
1909 2349 2809% 2814 2856 


325 451 459 463 482 
2656% 
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1362 


1454. 
2355 


1402 


660 


1463 


1460 
2389 


ly4s 


712 


1562 


1559 
2393 


2585 


728 


1577 


1597 
2444 


16596 


739 


3105 


1807 
2448 


1699 


745 
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3032 
=OTAB 
-EAD 


+1GH 
~IPRT 
TDEVOU 
I5wTt 
TLLADD 
TLLIST 
IMPTOP 
iN 
INBUF 
INDEV 
INIT 
INIT32 
INITSK 
INITZF 
INNAME 


TNTADD 
INTAPE 


LIMITS 
LINK 
LNZB 
Loo1 
LODIA 
1ODe2 
1003 
LOD4 
LOoDS5 
LopaDd 


ooc0 
oo00 
oacd 


0060 
o600 
0000 
0000 
0000 
oGo00 
0000 
ooo 
0000 
0000 
0000 
0000 
0000 
0050 
0000 


0000 


0000: 


00n0 
oo0d 
0000 
0600 
0000 
0000 
0000 
oca0 
6000 
0000 
0000 
0000 
0000 
oc0e 
co00 
0000 
oaco 
0000 
0060 
0G98 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


LAE2T 
o5727 
22021 


1EN0T 
02241 
1C7Cr 
ODF4] 
1LA2EI 
1BAET 
24401 
033C1 
1EF OT 
1EEOT 
onDst 
18681 
OF 221 
OE1AI 
olacr 


22127 
OEEBI 
1B701 
1COEI 
OEF BY 
00101 
21FEr 
028CI 
1BFCI 
1C821 
Icecr 
1CaCcr 


10601 


0002 

LADETI 
1808" 
18181] 
18261 
18401 
18561 
18641 
17FAI 


O1E6T 
OO0O0F 

1EEFI 
17901 
17A01 
17AEY 
17c81 
17DEI 
17ECY 
1782) 


2963% 
591 
555 

13293 

1672 

1984 
256 
245 

3136 

1386% 

2817 

2969 

3503 
197 
114 
388 
206 

2962 

1400s 

1398s 
167 
203 

2888 

1380 

2996 

3036 

1458 

36% 
HO 
322% 

2987 

3158 
246 

3154 

3128 


33 
2437 
2442 
2446 
2450 
2458 
2465 

501 
1263 
198 
32x 
3435 
2382 
2387 
2391 
23595 
2463 
2410 
498 


3008 
606* 
589 

1335 

1729 

1987 
269 
253% 

3139% 

1388 

282e% 

3046* 


3g7* 
136 
846 
1378 
2999% 
1434 
1399 
17. 


1185 
1142 
1494 
1733 
1999 
1526 


185 
2436 


174 
205 
3485x 


82 
3475* 


326 
3163 


2457 
2464 


828 
1860 


2584 


1423 
1148 
1422 
1794 
2011 
1533 


2658 
2449 


178 
206 


84 


471 


851 


2436% 


2586 


1626 
1184 
1495 
1798 
2288 
15467 


343% 


2457 


179 


722 


869 


2614 


B4a5 


( 


PAGE 


1730 
1188 
1427 
1810 
2296 
1647 


2464 


196x 


743 


884 


2633 


654 
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1795 
125n 
1438 
1824 
2784 
3420% 


2470 


196 


750 


9348 


859 


1825 
1259 
1587 
1828 
2844 


3427 % 


197 


819 


964 


875 


12/13781 


1941 
1267 
1625 
1849 
2852 


198 


1082 


975 


914 


1977 
1290 
1629 
1995 
3u7 Tx 


199 


1986 


1104 


926 


1297 
1632 
1949 


200 


1090 


1119 


1005 


130A 
1638 
1944 


201 


3151 


1294 


1015 


1314 
1668 
1976 


202 


1245 


1110 


ee TW? natant kiln men nc i: 
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LOFRHI 
LOHI 
LOHT1 
L.OHTEN 
LOHTKI 
LOHIK2 
LOKIN 
LOKOUT 
LOW 
LPADR 
LPWRT 
LSTBLK 
MACINT 
MAXCYL 
4MCH1 
MCHMAL 
MCHPSW 
ATCROBUS 
MIDO 
“IDOL 
410011 
MIDG2x 
MIDOEN 
MIDOER 
4ID0FM 
MIDOLB 
MIDONL 
MIMO 
MIMOL 
MIMQ2X 
MIMOEN 
“IMOER 
MIMOEV 
MIMOFM 
MIMOLB 
MIMONL 
MIMONX 
MISTRN 
MISTRT 
MREADC 
“TBOOT 
MYTBOOTL 
“TBOOTa 
eTcMO 
MTCOM 
“TEND 
ATERR 
4TERRI 
MTERRB 
ATERRW 
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QCHKS 
a5 
apIsc 
RE 


0060 


0000 


0000 


0009 


0000 


oooc 
0000 


0000 
6000 
0000 
0000 
ogae 
0000 
oco0 
0000 


0006 


0007 


0008 


0009 


QO00A 


0008 
oooc 


18821 
1A361 
1A5AY 
LAT4I 
1A6CI 
oo0eD 

15laAy 
OOOE 


1563 
1713 
2132 
2494 
S291 
3356 
22% 
916 
1042 
1074 
1194 
1413 
1723 
2138 
2508 
$305 
23% 
869 
2296 
3224 
24~ 
§o4 
1190 
1266 
1307 
1334 
1615 
1734 
1829 
1981 
2298 
25% 
3271 
3350 
3392 
26% 
552 
1158 
1466 
2145 
2273 
2789 
aT 
2195 
28x 
2782 
2542% 
1407 
2841 
2859% 
2849 
29% 
560 
30% 
2511 


1588 
1722 
2136 
2496 
3399 
3357 

324 

919 
1053 
1075 
1161 
1475 
1724 
2141 
2511 
$3345 

294 

472 
2291 
5321 

295 

974% 
1249 
1267 
1398 
1339 
1630 
1734 
1839 
1986 
2843 

3yu7 
3272 
35354 


452 

639 
1196 
1470 
2148 
2306 
279)! 

S74 
2311 
1384 
2786 
2543 
17a7 
2850 


2856* 
1551 
1163 
105 
2560 


1589 
1723 
2137 
2500 
S204 
3358 

330 

936 
1054 
1076 
1233 
1476 
1736 
2147 
2516 
$316 

2396 

721i 
2293 
5323 

2s5 
1o10 
1250 
1268 
1399 
1336 
1630 
1784 
1839 
1987 
2854 

349 
5277 
5360 


455 

673 
1198 
1555 
2150 
2335 
2811 

674 
2318 
2281 
2791 
2856 
2838+* 


1552 
1325 

231 
2662 


1602 
1735 
2138 
2502 
3305 
3371 

512 

966 
1056 
1079 
1235 
1564 
1737 
2152 
2517 
3326 

297 

723 
2639 
3324 

296 
1016 
1251 
1289 
1310 
1405 
1634 
1791 
1840 


- 1988 


3328 
3210 
3278 
3361 


494 

677 
1200 
1584 
2156 
2381 
3049 

676 
2394 
2287 
2809 


1566 
1345 

253 
2695 


1603 
1736 
2140 
2510 
3343 
3372 

557 

977 
1057 
1079 
1246 
1589 
1911 
2155 
2946 
3307 

298 

740 
284¢ 
3374 

548 
1141 
1252 
12946 
1311 
14945 
1635 
1792 
1906 
1989 
3399 
3211 
3289 
3363 


495 

679 
1320 
1698 
2186 
2385 
3049 
1383 
2396 
2292 
2843 


1646 
1592 

253 
3102 


2494 
1621 

255 
3127 


77) «=©15:13:57 


1607 
1911 
2155 
2516 
9316 
3396 

874 

991 
1059 
losy 
1273 
1618 
1935 
2175 
291a 
5529 

336 

Tua 
2847 
3379 

550 
1143 
1258 
1292 
13526 
1419 
1637 
1799 
1931 
1997 
3336 
3223 
$299 
3367 


5n2 

876 
13986 
1781 
2219 
2449 
3055 
2122 
2449 
2299 
2855 


2500 
1726 

258 
3192 


1617 
1934 
2151 
3214 
3524 


882 

997 
1062 
1087 
1283 
1619 
1936 
2177 
2918 
3554 

346 

744 
2919 
3584 

550 
1144 
1259 
1293 
1527 
1437 
163§ 
1809 
1932 
2008 
3343 
3228 
3297 
3369 


505 

927 
1392 
1908 
2226 
2680 
3135 
2165 
2451 
2309 
2856 


2501 
1739 
258 


11/13/81 


1618 
1935 
2152 
3222 
3323 


886 
998 
1063 
1088 © 
1301 
1642 
1963 
2495 
2921 
3359 
346 
749 
2929 
3385 
585 
1145 
1260 
1294 
1328 
1437 
1639 
1809 
1945 
2009 


3232 
3301 
3382 


509 

929 
1491 
2120 
2241 
2687 
3176 
2169 
2452 
2316 
2869 


2510 
1616 
542 


1641 
1962 
215% 
3231 
3324 


889 


loo? 


1065 
1107 
1399 
1701 
1964 
2496 
2925 
3341 

347 

751 
2921 
3389 

5a7 
1146 
1261 
1295 
1329 
1438 
1670 
19810 
1945 
2010 


3259 
3397 
338° 


522 
931 
1440 
2131 
2248 
2780 


2171 
2887 
24ne 
2872 


2515 
i914 
1567 


1938 
1647 


1701 
2002 
2171 
3235 
3537 


906 
1038 
1071 
1191 
1343 
1713 
2004 
2592 
3287 
SS8n 

353 

817 
2923 
5594 

591 
1180 
1264 
1297 
1339 
1582 
1718 
1s21 
1974 
ao12 


3264 
3314 
5587 


933 
956 
iqéy 
2136 
2269 
2784 


2175 
317a 
2457 


2006 
2276 


1712 
2003 
2176 
3286 
3544 


907 
1039 
1072 
1124 
1412 
1714 
2133 
2503 
3293 


468 

820 
3216 
5595 

594 
1190 
1265 
1298 
1935 
1615 
172¢ 
1829 
1961 
2267 


3265 
5512 
5591 


936 
1111 
1465 
2142 
2271 
2785 


2188 
2459 


2097 
2495 
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READPB 
REDAB 
REDAC 
REDING 
REOPT 
REOPTX 
RENTTY 
PEGSAV 
RESET 
RESTOR 
RETRY 
REWIND 
RFE 


SELD1 
SELOIS 
SFELDIS1 
SELOIS2 
SELERR 
SELINI 
SELIN2 
SELING 
SELIND 
SELINT 
SELST1L 
SELWRT 
sEQ 
SE91 
SE92 
SEQ2A 
SEQ9 
SseQag1 
seQ99 
SFQNAM 


SEQ2 
SET1 
SETCOM 
SETCON 
SETCYL 
SETGAP 
SETHEAD 
SETSEL 
SKP2N0 


0000 
0000 
0000 
0000 


rannh 
eu 


0000 
0000 
0000 
0000 
0000 
000G 
0000 
0000 


oc00 
0000 
0000 
0000 
0000 
ogaa 
od00 
00n0 
0000 
0000 
0000 
0000 
0900 
acod 
0000 
e000 
0000 
0000 
0000 
0060 
0000 
0000 
oco00 
0000 
0000 
0090 
0000 
0000 
0000 
00c0 
0000 


0000 
Co00 
0000 
0000 
0000 
ooco 
0900 
6000 
0000 


15461 
oocér 
01181 
OOBAT 
OOAAT 
00981 
o09gCI 
22401 
18B01 
18elr 
220CI 
18851 
OOOF 


o5C41r 
221CI 
060CI 
OSEAI 
OSFCI] 
06181 
oSoci 
21FCI 
05641 
18AFY 
16061 
17261 
16001 
17021 
16F 81 
22081 
1ADOI 
1AB8I 
1A02I 
220617 
LAA4ST 
LAB2I 
15cC1 
06201 
06341 
0666] 
06N61 
O66ET 
O6B6I1 
O6CEI 
1F681 


06221 
O6EET 
1AS4Y 
1ATAY 
LAOFI 
OSF6r 
1AOQEX 
1A68} 
0082T 


514 
118s 
140 
114 
109% 
101s 
102+ 
3501* 
1384 
1392 
2103 
679 


873 
144 
149% 
117 


2664 
138 


2539% 
2540 
2116 
2546« 
293 
682 
657% 
2118 
66l* 
671% 
677 
686% 
666% 


59%" 
1158 
2200% 
2322 
2281 
2300 
2296 
2161 
2928 


2930* 
2907 


2165 
705% 
725 
726% 
765 
755 
T47* 
746 
723 

2761 
710 
767 


2a57 
2795 
766* 
2794 

2322 
g5* 


895 
182 


266 
2540 
2253 


340 
682 


2179 


1180 
1320 


2282 


2237 


2348 


754% 
741 
2762 


2868 


2882 


909 
186 


350 
2872 
2258 


342 


3490« 


1419 


1340 


2340 


744 


3446x% 


2870 


938 


357 


2342 


344 


1615 
1491 


2884 


781 


PAGE 
968 


758 


2347 


344 


1720 
14490 


2926 


763 


78 15:13257 


986 1000 211ix 


2279 3112 3130 


3482« 


343 349 458 


1784 1792 1621 
1584 1698 1710 


2931 3480 


770 1496 1501 


11/13/7861 


490 


1932 
1761 


1602 


586 


1974 
1908 


1606 


590 


2537 


1678 


661 


1681 


( 
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TSTEOV 
UPCHKCOM 
uIPDOCOM 
'POFLG 
‘IPDSPY 
UPDTOR 
UPOTP1 
POTPT 
YPOTRN 
UPDOTXL 
UPOTX2 
YPOTAS 
JPOTX4 
UPDTX5 
JPOTXX 
IPFTEN 
UPFINI 
APFINO 
IPF IZF 
UPPT1 
UPXWB1 
#3LKRD 
ADFT 


ANF TL 
WOFT2 
dOFTS 
wOFTS 
ADISC 
aFM 

WINIFO 
#ROSCL 
aRTLY 
WRTBUF 


0000 
00c0 
9000 
0000 
0000 
e090 
09000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
ocad 
0000 
0000 
0000 
oco0 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0006 
0000 
e000 
0c00 
0000 
0090 
0000 
0000 
coad 
0000 
0000 
C090 
0000 
0000 


0000 
ooo0 
0000 
oo00 
0000 
coo0 
oca0 
0000 
0000 
o000 


OOWUAY 
O048BT 
oES4ay 
OE36I 
OES4y 
OESCI 
OE6CY 
1888! 
1C281 
21DCI 
oo0or 
1872, 
18ACI 
11iccr 
1C081 
18AE1 
19541 
21C4I 
05587 
O3ACTI 
03021 
13801 


_221ET 


OAZ0X 
11AAr 
14881 
134CI 
21901 
13F 01 
L40AT 
13F21 
1430T 
141AI 
14467 
13841 
14821 
14621 
T44ET 
14861 
13661 
14701 
15A2T 
19DEI 


19EETI 
19F AI 
LAQOT 
14081 
15201 
18aABI 
OESAT 
15247 
10241 
1F9CI 


76x 
T7x 
1424 
14906x 
1405% 
1416 
1420 
2551* 
3105* 
2176 
33x 
15628 
676 
1695 
3025 
2536% 
100 
348 
564 
470 
343 
1874 
1868 
1060 
1686% 
1952 
1103 
1859 
1917 
1923 
1921, 
1933 
1934 
1942 
634 
1978 
1957 
1927 
1969% 
1863 
19538 
2129 
551 
14493 
1818 
27825 
2786 
2779 
2791* 
1415 
927 
1431 
2098 
1568 
885 


548 
1430 
1429" 
1421 
1428 


1422 
255¢ 
3195 
3464% 


1648 
1383 


3089* 
2537 
2637 
5386 
596" 
475% 
345 
1902 
1896 
1077* 
1728 
1985 
1242 
1890 
1920* 
1928* 
1930 
1940* 
1946 
1947* 
1578 
198a3* 
1961 
1950 
1972 
1866* 
1962* 
2145 
559 
1583 
1997 
2783 
2787 
2789% 
2792 
1450 
929 
1435* 
21900* 
1571 
905 


1316 
1432 


249K% 
2165 


590 


1951 
1741 
1858 


1983 
1939 


1889* 
1992 


1975 
1157 


1591 
1913 


1704 
1196 


915 


1389 
1447 


2396 


1417 


3491 


3461 


1982 
1162 


1620 
1937 


1716 
1198 


976 


1435 


2451 


1873 


1319 
1697 
1965 


1819 
1465 


996 


( 


PAGE 
1580 


2533 


1901 


1324 
1703 
2005 


1966 
2269 


1006 


79 «#15:313:57 


1674 


2534 


2413 


1339 
1709 
2283 


2099* 
2271 


1120 


11/13/81 

1902 

2468 2839 
1344 1391 
1715 1725 
2777 2842 
2531« 

1232 1263 


3458* 


1400 
1738 
2651 


13900 


1406 
1780 


1398 


1414 
1786 


1411 


1439 
1815 


1443 
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WRTEND 
wRTPB 
weTe0B 
wai TPRT 
wT4rMo 
X9C 
¥BC 
vce 
YESEQJ 
7SEQ 
Z2SGEST 
Z8QZ 


0000 
0000 
0000 
e000 
0000 
0000 
0000 
0000 
6090 
0000 
0000 
0000 


21iRCI 
153CI 
100AT 
17743 
O7FEY 
1B781 
1386.% 
1B96] 
1C4OL 
19001 
O6FCI 
07021 


1444 
2101 
683 
1557 
2308 
878 
3027 
3032« 
3037x 
3106 
99 
714 
T70x% 


1445 
2113 
920 
1560 
23535 
8a1* 
3030 
3035 
3040 
3116* 
952 
716 
773 


1446 
2265 
1118 


959 
720 


1448 
2350 
1236 


1219 
727 


PAGE 
344u8x 
34568 
1474 1477 
1228 1573 
730 732 


80 15313357 


1565 1569 
1654 2760% 
738 748 


11/13/81 


2107 


755 


762 


768% 


